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1.0 ftBSTRflCT 

THE RK11/RK05 PERFORrWNCE EXERCISER IS HIGH LEVEL EXERCISER 
PROGRfln fiiriEO AT SIMULATING A RK11/RK05 SYSTEM ENVIRONMENT AND 
CHECKING FOR ERRORS THAT ARISE IN SUCH AN ENVIRONMENT 
(INTERACTION, POLLING. ETC). IT ALSO PROVIDES A MEANS OF 
EVALUATING A SYSTEM THR6uGH ITS ERROR LOGGING AND DATA-TRANSFER 
LOGGING FACILITIES. 

AT THE BEGINNING OF THE PROCWAM THERE IS A SERIES OF TESTS 
SPECIFICALLY AIMED AT DETECTING AND ANALYZING FAIlURES ASSOCIATED 
UITH BOUNDARY CONDITION TRANSFERS. 

THE LATTER PART (AND THE MORE SIGNIFICANT ONE) CONSISTS OF THE 
EXERCISER. 

2. Q REQUIREMENTS 

2.1 EQUIPMENT 

A. PDPll UITH CONSOLE TELTYPE 

B. 8K OF MEMORY - 12K FOR CHAIN MODE 

C. RKll OR RKVll CONTROLLER 

D. 1-B RK05 OR RK05F DRIVES (DRIVE TYPES HAY BE MIXED) 

2.2 PRELIMINARY PROGRAMS 

SINCE THIS IS A HIGH-LEVEL EXERCISER PROGRAM THE CONTROLLER AND 

THE DRIVE SHOULD BE FREE OF BASIC FAULTS. IT IS POSSIABLE TO HANG 

THE PROGRAM IF THE HEAD POSITIONING LOGIC TS FAULTY ON DUAL 

DENSITY DRIVES. THUS THE FOLLOWING PROGRAMS SHOULD BE RUN BEFORE 
ATTEMPTING TO USE THIS PROGRAM. 

A. RKll BASIC LOGIC TESTS (I AND II) 

B. RKll/RKOS DYNAMIC TESTS 

C. RK05 UTILITY PACKAGE (IF NEEDED) 

2.3 EXECUTION TIME 

THIS VARIES FROM 30 TO "JO MINUTES FOR A PASS. IT SHOULD BE NOTED 
THAT THIS IS AN EXERCISER LEVEL PROGRAM AND SHOULD BE PREFERRABLY 
RUN FOR A LONG PERIOD OF TIME. 

NOTE: THE FIRST PASS IS A SHORT (5-20 MINUTE) PASS TO SERVE AS 
A QUICK VERIFY OF THE RK SUBSYSTEM. 

3. Q STARTING ADDRESS 

200 - ALL SWITCHES DOWN. SEE SEC. fe.O FOR SWITCHES. 

210 - RESTART ADDRESS. THE RESTART ADDRESS PROVIDES THE USER UITH 
AN ABILITY TO GO STRAIGHT TO EXERCISER PART OF THE PROGRAM 
(SKIPPING TESTS 1-7). THERE IS A SWITCH OPTION (SW 4) WHICH 
ALLOWS THE USER TO INHIBIT THE REWRITE OF RANDOM PATTERNS ON ALL 
DRIVES, ON RESTART. SEE SEC- b.9. 
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4.C PROGRAM CONTROL MODES AND OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTU 

H.l PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTO NEMOi^Y USING STANDARD PROCEDURE FOR ABSOLUTE 
TAPES. 

•4.1.2 MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED UITH DISKS AND 
ARE IN 'RUN'. 'URT ENABLE' THEM. CHECK THAT 'URT PROT* LIGHT ON 
THESE DRIVES IS OFF. PUT DRIVES THAT ARE NOT TO BE TESTED ON 
•LOAD'. 

-4.1.3 LOAD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC b.6) AND PRESS START 

4.1.5 THE PROGRAM IDENTIFIES ITSELF 
HAIN0EC-11-D2RKH-G 
RK11/RKQ5 PERFORMANCE EXERCISER 
THEN IT PROCEEDS TO TEST THE DRIVES. 

4.2 RKDP DUMP MODE 

4.2.1 THE PROGRAM IS LOADED BY THE RKDP MONITOR. 

4.2.2 SET SA=200, SELECT ANY SWITCHES YOU HANT AND PRESS START. 

4.2.3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 

'TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM- 
IN RESPONSE TO THIS MESSAGE, PERFORM THE ACTIONS REQUESTED IF THE 
DRIVE ON WHICH THE R!<DP PfiCk IS MOUNTED IS TO BE TESTED. 

4.3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE 'N*. AFTER 
IDENTIFYING ITSELF, THE FOLLOWING MESSAGE APPEARS: 

'DRIVE 'N' NOT TESTED' 

DRIVE 'N' WILL NOT BE TESTED SINCE THE RKDP PACK IS ON THAT DRIVE. 
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4.4 flCTll MODE 

THE PROGRAM IS LOADED BY THE ACTll MOMTOR. AFTER IDENTIFYING 
ITSELF. ASCERTAINS THE NUMBER OF DRIVES PRtSENT AND PROCEEDS TO 
TEST eAch OF THEM AS BEFORE. 

5.0 DRIVE SELECTION 

PUT ALL THE DRIVES THAT ARE TO BE EXERCISED AND TESTED ON 'RUN', 
URITE ENABLE THEM. MAKE SURE THAT THE 'HRT PROT' IS OFF. TH^ 
PROGRAM RECOGNIZES THAT THESE DRIVES ARE ON LINE AND PROCEEDS TO 
TEST THEM. RK05F DRIVES WILL HAVE THE LETTER F TYPED AFTER THE 
DRIVE NUMBER. 

IF A FATAL ERROR OCCURS ON A DRIVE WHILE THE PROGRAM IS RUNNING 
THE DRIVE IS AUTOMATICALLY DESELECTED CDSELCT') AND DROPPED FROM 
THE DRIVE SELECTION LIST, 

6.0 SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SUITCHLESS PROCESSOR (I.E. AN 
11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH 
REGISTER IS NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. 
THE 'SOFTWARE* SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). 
THE SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A 
KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G' . THE 
PROGRAM WILL RECOGNIZE THE 'CONTROL G' WHEfCVER THE PROGRAM ENTERS 
THE SCOPE ROUTINE OR BEGINS A NEW TEST. THE 'SOFTWARE' SWITCH 

W?HfLMr^ X; '^'^ "'^"^^ ^* 

'SWR = NNNNNN NEW =' 

EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH REGISTER 
IMAGE^^MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT' 
AND 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPI^ ERRORS 

DURING SWITCH ENTRY. ON PROCESSORS WITH HARDWARE SWITCH 

REGISTERS. THE 'SOFTWARE' SWITCH REGISTER MAY BE USED. IF THE 
PR9§S9" QfJgS ALL 16 SWITCHES IN THE 'UP' POSITION. ALL SWITCH 
REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER AND THE 
PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

SW<15>=1 HALT ON ERROR 

SW<13>=1 INHIBIT ERROR PRINTOUTS 

SW<12>=1 TYPE OUT THE ERROR HISTORY 

SW<11>=1 DUMP OUT ALL RKU REGISTERS 

SW<10>=1 RING BELL ON ERROR 

SW<Og>=l LOOP ON SPECIFIC ERROR 

SW<08>=1 DUMP OUT TRANSFER DATA AND ERROR STATISTICS 
SW<06>=1 SELECT BUS ADDRESS LIMITS FOR DATA TRANSFERS 
SW<05>=1 HALT BEFORE DOING THE NEXT SET OF COMMANDS 
SU<04>=1 DO NOT REWRITE THE DISKS ON 210 RETSART 
SU<03>=1 TYPE OUT ELAPSED TIME AT ERROR 
SW<02>=1 DROP DRIVE AFTER MAXIMUM ERRORS 
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SU<01>sl 
SW<00>=1 



TYPE SERIAL NUMBER OF ERRORING DRIVE 

TYPE ONLY ELAPSED TIME IF SU<08> AND SU<03> = 1 



b.l SU<15> 



THE PROGRflfl HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT THE 
ERROR MESSAGE AND PERTINENT INFORMATION. PRESSING "CONTINUE" 
RESTORES NORMAL OPERATION OF THE PROGRAM. 



&.2 SU<13> 



THIS SWITCH INHIBITS ALL 
LOOPING ON ERROR (SU <3). 



ERROR MESSAGES. NORMALLY USED UHEN 



b.3 SU<12> 



IF THIS SWITCH IS SET UHEN AN ERROR OCCURS, INFORMATION ABOUT 
HISTORY OF THAT ERROR IS TYPED OUT. 



THE 



THE FUNCTION THAT MAS BEING PERFORMED ON THE RKll IS TYPED OUT. 
THE FUNCTION COULD BE EITHER A READ, WITE. URITE CHECK. READ 
CHECK. BESIDES THESE NORMflL FUNCTIONS. IT COOLD BE A CONTROL 
RESET. DRIVE RESET OR POSITIONING OF THE HEADS (SEEKING). FOR THE 
FOUR FUNCTIONS THE INITIAL DISK ADDRESS. BUS ADDRESS AND WORD 
COUNT (2'S COMPLEMENT) ARE ALSO GIvfeN. FOR DRIVE RESET AND 
POSITIONING THE DRIVE NUTBER OR WHICH THE OPERATION WAS BEING 
PERFORMED IS GIVEN. 

SIMILAR INFORMATION IS TYPED OUT ABOUT THE FUNCTION THAT WAS DONE 
JUST BEFORE THE ONE GIVING THE ERROR. 



b.4 SU<il> 



IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, THE 
RKll REGISTERS ARE TYPED OUT. 



CONTENTS OF ALL 



6.5 sw<oq> 



THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP. LOOPING IS 
DONE WHEN AN ERROR OCCURS. NOTE THAT THERE ARE TWO CLASSES OF 
ERRORS AND HENCE TWO CLASSES OF ERROR LOOPS. REFER TO SEC 8.0 FOR 
THE OIFFERNECE IN THE ERROR LOOPS PROVIDED BY SW g. 



b.b SW'08> 



WHEN THIS SWITCH IS SET. THE ERROR AND TRANSFER DATA STATISTICS 
WHICH HAVE BEEN COLLECTED UNTIL THAT TIME, ARE TYPED OUT. 

THE TRANSFER DATA STATISTICS GIVE THE NUMBER OF WORDS WRITTEN AND 
READ ON EACH DRIVE THAT IS PRESENT. IT SHOULD BE NOTED THAT READ 
CHECK AND WRITE CHECK ARE CONSIDERED TO BE ESSENTIALLY READ 
OPERATIONS. 

THE ERROR STATISTICS GIVE THE NUMBER OF ERRORS THAT HAVE OCCURRED 
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(IF ANY) IN THE FOLLOUING CATEGORIES. ON THE DRIVES THAT ARE 
PRESENT: 

CHECK SUM ERROR 

URITE CHECK ERROR 

DATA COfjPARISON ERROR 



HARD tPROR 
SEEK ERROR 
SEEK INCOnPLETE 

ABORTS - WHEN AN ERROR OCCURS THE FUNCTION IS RETRIED TWICE. IF 
STILL THE ERROR PERSISTS THE FUNCTION IS ABORTED AND THE ABORT 
COUNT IS INCREHENTEO FOR THAT DRIVE. 



b.7 SU<06> 



THIS SWITCH ENABLES THE USER TO SELECT THE LIMITS OF THE MEMORY 
BUS ADDRESSES^ItuEEN which THE DATA TRANSFERS WILL BE DONE. 
NORMALLY THE TRANSFERS ARE DONE BETWEEN THE LOWER LIMIT (BASEBA) 
AND ThC HIGHER LIMIT (HAXBA). THESE TWO LIMITS ARE NORMALLY 
SELECTED BY THE PROGRAM AND USE THE MAXIMUM AVAILABLE MEMORY. IF 
THE USER HANTS TO DO DATA TRANSFERS BETWEEN SELECTED MEMORY 
ADDRESSES CEX: BETWEEN 12K AND IbK) THEN THIS SWITCH SHOULD BE 
SET Ar THE STARTING OP THE PROGRAM. THE FOLLOWING MESSAGE 
APPEARS: 

TYPE OCTAL BUS ADDRESS FOR DATA XFER, BETWEEN XXXXXX AND YYYYYYY 

LO LIMIT' 
HI LIMIT' 

IN RESPONSE THE USER SHOULD TYPE IN ANY TWO BUS ADDRESSES (OCTAL) 
BETWEEN XXXXXX AND YYYYYY. IF THE USER TYPES IN ANYTHING OUT OF 
THE X AND Y RANGE THE QUESTION IS ASKED AGAIN. 

THIS SWITCH COULD BE QUITE USEFUL IN DETERMINING WHETHER THE 
PROBLEM IS WITHIN THE RKll OR OUTSIDE (IN MEMORY). NORMALLY. IF 
THE PROBLEM IS WITHIN THE RKll. ERRORS WILL KEEP ON OCCURING 
REGARDLESS OF WHERE IN THE MEMORY DATA TRANSFERS ARE TAKING PLACE. 
ON THE OTHER HAND IF THE PROBLEM IS MEMORY RELATED, THE ERRORS 
WILL TEND TO DISAPPEAR FOR DATA TRANSFERS TO CERTAIN MEMORY BLOCKS 
AND WOULD REAPPEAR FOR OTHER ONES. 



&.B SW<05> 



THIS SWITCH PROVIDES THE USER A CAPABILITY TO HALT THE PROGRAM AT 
A KNOWN POINT. THE HALT IS DONE AFTER THE CURRENT SET OF EIGHT 
COMMANDS IN THE QUEUE HAVE BEEN EXECUTED. THE "HALT" IS LOCATED 
AT THE BEGINNING OF THE'GENBRQ' ROUTINE. JUST BEFORE A SET OF 8 
NEW COMMANDS IS GENERATED. AFTER THE PROGAaM HALTS, THE EXECUTION 
CAN BE RESUMED BY PRESSING CONTINUE. OR THE PROGRAM CAN BE STARTED 
BACK AT 200 OR RESTARTED AT 210. 



fc-<3 SW<OM^ 
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THIS SWITCH PROVIDES THE USER WITH ON ABILITY TO SKIP THE TIHE 
CONSUMING REWRITE OF ALL^HE DISKS WHEN ThE PROGRRfl IS RESTARtED 
AT 210. THIS SWITCH CAN BE USED ONLY WHEN RESTARTING THE PROGRAM 

?JiTfiE B&?"cofci?fJ« #f ={^IJi!!?sW www- 

SWITCH M IS SET, THE REWRITE OF ALL THE DISKS (WHICH WOULD HAVE 
BEEN NORMALLY DONE) IS ALSO SKIPPED. THE USER IS CAUTIONED TO USE 

?AVsTiKT,m«MJFcffllclirio'f«Ws^VE6!^'*^''=°-'- 



b.lO SW<03> 



THIS SWITCH ALLOWS THE TYPEOUT OF THE ELAPSED TIME AT WHICH ERPOP 
OCCURRED. THE TIMING STARTS AT THE BEGINNING QF,THE EXERCISER 
PROGRAM. THIS SUltCH SHOULD NOT BE SET IF KWllL LINE CLOCK IS NOT 



AVAILABLE ON THE SYSTEM, 
c.ll SW<02> 

THIS SWITCH CAUSES DRIVES WHICH EXCEED A MAXIMUM NUMBER OF ERRORS 
TO BE DEASSIGNED BY THE PROGRAM. THE PROGRAM CONTINUES TESTING 
OTHER DRIVES WHICH HAVE NOT ACCUMULATED THE REQUIRED NUMBER OF 
ERRORS. 

fc.12 SW<01> 

IF THIS SWITCH IS SET. THE PROGRAM ALLOWS A SERIAL_NUMBER TO BE 
SPECIFIED FOR EACH DftlVE TESTED. THE SERIAL NUMBER IS TYPED WITH 
EACH ERROR MESSAGE FOR THAT PARTICULAR DRIVE. 

&.13 SW<QO> 

IF SW'OB> AND SU<03> ARE SET. SETTING THIS SWITCH TYPES OUT THE 
ELAPSED TIME FROM THE START 6f THE PROGRAM. 
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7.0 EXERCISER PROGRflfl 

THE EXERCISER PROGRflfl ATTEMPTS TO SIHULfiTE fl DISK OPERATING SYSTEM 
ENVIRONMENT BY DOING RANDOM EVENTS (FUNCTIONS) USING RANDOMLY 

ES^Wf'!l^'SgD^'^§^D?¥?S^f^TM^^^^ iWik 

SEEK problems! ETC. FOR EXAMPLE. OVER 500 HILLI6n BITS ARE 
TRANSFERRED ^»ER HOUR ON A TYPlCflL RK11/RK05 SYSTEM (BASED ON 2 
DRIVES, PDPll/50, 2BK SYSTEM). 

EIGHT JOBS OR COMMANDS ARE GENERATED AT A TIME (GEN8RQ) AND PUT IN 
A QUEUE TO BEPROCESSED. THE ALGORITHM WORKS AS FOLLOWS. 
COMMANDS IN THE QUEUE AR". PREPOSITIONED (HEADS) BY PREFORMING 
OVERLAPPING SEEKS. WHILE SOME OF THE DRIVES ARE BEING POSITIONED, 
THE LAST AVAILABLE (AND EXECUTABLE) COMMAND IS PERFORMED. THUS 
WHILE SOME DRIVES ARE BUSY POSITIONING THEIR HEADS, SOME DRIVE IS 
PERFORMING A F^TION (DATA TftANSFER.ETC) . AS' SOON AS THE 
CONTrSj-ER is FREE . a CHECK IS MADE TO'SEE IF THERE IS WY DRIVE 
WHICH HAS ALREADY POSITIONED ITS HEAD. IF ONE IS FOUND THE 
COMMAND IS E^CUTED ON THAT DRIVE AND THE CONTROLLER AGAIN BECOMES 
BUSY. IF NO POSITIONED COMMAND IS FOUND. A CHECK IS MADE TO SEE 
IF THERE IS A COMMAND THAT IS TO BE WSITIONED. IF YES. IT IS 
POSITIONED AND THE LAST AVAILABLE COMMAND IS EXECUTED. IF ' IT IS 
FOUND THAT NO DRIVE NEEDS TOK POSITIONED (THIS COULD HAPPEN IF 
THERE IS ONLY ONE COMMAND LEFT IN THE QUEUE OR THE REMAINING 
COMMANDS IN THE QUEUE ARE TO BE PERFORMED ON THE SAME DRIVE), THEN 
THE COMMANDS IS/ ARE EXECUTED. 

THE ABOVE ALGORITHM HELPS SIMULATE A REAL ENVIRONMENT. AT THE SAME 
TIME MAXIMISING THE RATE OF DATA TRANSFERS. THE EXERCISER PROGRAM 
GIVES AN ELABORATE ERROR DETECTION CAPABILITY. THE STATE OF THE 
PROGRAM IS CONTINUOSLY TRACKED BY SOFTWARE KEYS, FLAGS. ETC. 
THESE FLAGS AND KEYS HAVE BEEN EXPLAINED IN DETAIL AT THE BECINING 

INSURES THAT OVERLAPPED SEEKS WILL NOT INTEFER WTTH THE HEAD 
POSITIONING LOGIC. 

THE PARAMETERS USED FOR DOING THE COMMANDS^ARE SELECTS ^OHLY 
USING A RANDOM GENERATOR . THE FUNCTION TO BE PERFORMED IS 
SELECTED RANDOMLY FROM ONE OF THE FOUR: WRITE. READ, WRITE CHECK 
OR READ CHECK. THE DRIVE NUMBER IS SELECTE6 FROM THE AVAILABLE 
DRIVES. THE DISK ADDRESS IS SELECTED OVER THE ENTIRE RANGE^ AND 
THE WORD COUNT AND BUS ADDRESS ARE SELECTED RANDOMLY IN SUCH A WAY 
THAT A NON-EXISTENT MEMORY ERROR OR OVERRUN CONDITION DOES NOT 
OCCUR. 

RANDOM DATA BLOCKS ARE WRITTEN ON THE DISK. THE FIRST WORD OF 
EACH SECTOR BLOCK IS A NUMBER (2'S COMPLEMENT) INDICATING THE 
TOTAL NUMBER OF WORDS WRITTEN IN THAT SECTOR. ^ THE REST OF THE 
WORDS IN THE BLOCK ARE GENERATED USING THE DISK ADDRESS (OF THAT 
SECTOR) AS THE RANDOM SEED NUMBER. 
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B.O LOOPING CflPflBILITIES: 

SWITCH 9 GIVES LOOPING CflPflBILITIES, ON ERROR. THERE ARE TWO 
CLPSSES OF ERRORS: 

fl. ERRORS OCCURING IN THE NON-EXERCISER PART OF THE PROGRAM 
(ERROR NUMBERS UNDER 100 IN THE ERROR ITEMS TABLE) 

B. ERRORS OCCURING IN THE EXERCISER PART OF THE PROGRAM (ERROR 
NUMBERS STARTING FROM 100 AND UP IN THE ERROR ITEMS TABLE) 

C. NON-EXERCISER SCOPE LOOPS: IN THIS CASE, THE PROGRAM LOOPS ON 
A SPECIFIC ERROR GIVING A NARROW SCOPE LOOP. THIS SCOPE LOOP 
IS SIMILIAR TO THE ONE PROVIDED IN THE RKll BASIC LOGIC TEST 
AND DYNAMIC TEST, WHICH THE USER MIGHT BE FAMILIAR WITH. 

D. EXERCISER SCOPE LOOPS: WHEN AN ERROR OCCURS (AFTER TYPING OUT 
THE ERROR MESSAGE) CONTROL IS TRANSFERRED TO THE BEGINNING OF 
THE COMMAND-QUEUE. THE COMMANDS FROM THE FIRST COMMAND 
ONWARDS, ARE EXECUTED AGAIN TILL THE POINT OF ERROR. THIS 
LOOPING PROVIDES THE USER WITH A CAPABILITY TO RECREATE A SET 
OF EVENTS THAT LED TO THE ERROR. 

9.0 TRANSFER DATA LOGGING 

IN THIS PROGRAM, WHENEVER A DATA TRANSFER TAKES PLACE IT IS LOGGED 
WHETHER IT IS READ. READ CHECK. WRITE OR WRITE CHECK. SEPERATE 
COUNTS ARE KEPT FOR DATA TRANSFERS TAKING PLACE ON EACH DRIVE IN 
THE SYSTEM. AT ANY GIVEN TIME THE USER CAN GET THESE TRANSFER 
STATISTICS BY SETTING SWITCH 8 TO 1 (SEE SEC.6.b). THIS IS 
HELPFUL FOR EVALUATING A SYSTEM. 

10. G ERROR LOGGING 

THROUGHOUT THE EXERCISER PROGRAM. WHEN AN ERROR OCCURS IT IS 
LOGGED. THE FOLLOWING CLASSES 0^ ERRORS ARE LOGGED FOR EACH DRIVE 
IN THE SYSTEM: 

CHECK SUM ERROR 

WRITE CHECK ERROR 

DATA COMPARISON ERROR 

HARD ERRORS 

SEEK ERROR 

SEEK INCOMPLETE ERROR 
ABORTS 

THE ERROR STATISTICS CAN BE OBTAINED BY PUTTING SWITCH 8 TO 1. 
THE ERROR STATISTICS CAN BE USED IN CONJUNCTION WITH DATA TRANSFER 
STATISTICS TO GIVE AN IDEA OF THE SYSTEM PERFORMANCE (NUMBER OF 
WORDS TRANSFERRED PER ERROR, CSE FREQUENCY. RECOVERABLE VERSUS 
NON-RECOVERABLE ERRORS ETC.). 
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11.0 ERROR REPORTING AND RECOVERY 

REPRESENT THE CONTENTS AT THE TINE OF ERROR. EACH ERROR MESSAGE 
CONTAINS A 'PC NUMBER. THIS IS THE PC LOCATION IN THE PROGRAM 
UHERE THE ERROR CALL IS LOCATED. THE USER IS ADVISED TO REFERENCE 
THIS LOCATION IN THE LISTINGS, IN CASE MORE INFORMATION ABOUT THE 
ERROR IS DESIRED. 

SOME (SYSTEM) ERRORS REFER TO SOFTWARE FLAGS AND KEYS WHICH ARE 
USED TO MONITOR THE ONGOING ACTIVITIES ON THE SYSTEM. THESE FLAGS 
ARE EXPLAINED AT THE BEGINING OF THE LISTINGS AND SOULD BE 
REFERRED TO, IF THE NEED ARISES. 

IF A FATAL ERROR CONDITION IS DETECTED (LIKE DRIVE UNSAFE, WRITE 
PROTECT SET, DRIVE READY CLEAR. ETC.) THE DRIVE IS REMOVED FROM 
THE DRIVE SELECTION TABLE AND DROPPED FROM FURTHER TESTING. A 
MESSAGE IS GIVEN INDICATING DROPPING OF THAT DRIVE. FOR FURTHER 
INFORMATION, REFER TO THE 'CHKDRV' AND 'DSELCT' ROUTINES IN THE 
LISTINGS. 

RECOVERABLE ERRORS ARE RETRIED THREE TIMES. IF THE ERROR 
CONDITION FAILS TO CORRECT OR A IF A DIFFERENT ERROR OCCURS THE 
FUNCTION IS ABORTED. MESSAGES ARE PRINTED ONLY ONCE FOR EACH 
ERROR. AFTER EIGHT ABORTS ARE RECORDED ON ft DRIVE THE DfilVt IS 
DROPPED. DUAL DENSITY DRIVES ARE ALWAYS DROPPED IN PAIRS. 
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12.0 SUBROUTINES AND HANDLERS 

THERE ARE TUG WAYS IN UHICH MOST OF THE SUBROUTINES USED IN THIS 
PROGRAn ARE CALLED: 

1. THROUGH THE NORflAL JSR CALL 

JSR REG, SUBROUTINE 

2. THROGH THE 'TRAP' INSTRUCTION. THE TRAP INSTRUCTION WITH ITS 
LOWER BYTE ENCODED SERVES AS A CALL FOR SOME ROUTINES. UHEN THE 
•TRAP' IS EXECUTED A TRAP OCCURS TO THE TRAP VECTOR AND THE TRAP 
DECODER IS ENTERED. THE TRAP DECODER (ITRAP) MILL PICK UP THE 
LOWER BYTE OF THE 'TRAP' INSTRUCTION AND USE IT TO INDEX THROUGH 
THE TRAP TABLE (STRAPAD) FOR THE STARTING ADDRESS OF THE DESIRED 
ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL GO TO THE 
DESIRED ROUTINE. 

3. SSCOPE - THE SCOPE HANDLER 

THE SCOPE HANDLER IS ENTERED THROUGH THE EXECUTION OF THE 'lOT' 
INSTRUCTION. 11 KEEPS TRACK OF VARIOUS POINTERS, FLAGS AND 
DECIDES IF LOOPING IS TO BE DONE ON ERROR (SW 9). IT SHOULD BE 
NOTED THAT THIS HANDLER IS USED MOSTLY IN THE NON-EXERCISER PART 
OF THE PROGRAM. 

4. JERROR - ERROR HANDLER ROUTINE 

THE ERROR HANDLER IS ENTERED THROUGH THE EXECUTION OF THE 'EMT' 
INSTRUCTION. THE LOWER BYTE OF THE EMT INSTRUCTION IS ENCODED TO 
GIVE AN IDENTIFIER TO THE ERROR CALL. THUS 'ERROR 1* IS 104001. 
ETC. THE ERROR ROUTINE DECIDES IF ANY ACTION IS TO BE TAKEft 
DEPENDING ON THE SWITCH SETTING (LIKE, HALT ON ERROR, INHIBIT 
ERROR TYPEOUT, ETC.). 

MOST OF THE SUBROUTINES RESIDE IN THE LATTER PART OP THE PROGRAM. 
THE USER CAN REFER TO THEM TROUGH THE CROSS REFERENCE TABLE AT THE 
END OF THE LISTINGS OR TABLE OF CONTENTS Af THE BEGINING. 
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587 
588 
58S 
SVl 
591 
595 
593 
594 
595 
5% 
597 
598 
599 
E>00 
bOl 
E>02 
E>03 
bOM 
bOS 
bOb 
b07 
b08 
b09 
blC 
bll 
bI2 
bl3 
bl4 
bl5 
bib 
bl7 
bI8 

b:9 

b2C 



REVISED BY GEORGE GALLANT. TOH 5AUYER 
REVISED BY CHUCK HESS - ROGUST 197b 
SBTTL OPERRTIONRL SWITCH SETTINGS 



ITLE nO-ll-DZRKHC, RK11-RK05 PERFORMANCE EXERCISER 
COPYRIGHT (C) 1973.1977 
DIGITAL EOUIPfCNT tORP. 
MAYNARD, flASS. 0175H 

PROGRAN BY JIN KAPADIfi 

THIS PROGRAN HAS ASSEHBLED USING THE PDP-ii NAINDEC SYSNAC 
PACKAGE (nAINOEC-ll-0ZQAC-C3), JAN 19, 1977. 



- HARCH 197b 



SUITCH 

Is" 

14 
12 
10 

9 

B 

b 

5 

4 

3 

2 

1 

0 
11 



USE 



HALT ON ERROR 

LOOP ON TEST 

TYPE OUT ERROR HISTORY 

BELL ON ^OR 

LOOP ON Error 

TYPE OUT ERROR AfC TRANSFER DATA STATISTICS 
SELECT BUS ADDRESS LIMITS FOR DISK DATA TRANSFERS 
HALT BEFORE DOING NEXT SET OF COMHAHDSCGENSRO. 
DO NOT REWRITE T« DISKS ON RESTART AT 21C 
TYPE OUT ELAPSED TIME AT ERROR 
DROP DRIVE AFTER HAXM ERORS ON THIS DRIVE 
TYPE SERIAL NUWER OF ERRORING DRIVE 
IF SMB=1, ONLY TYPE ELAPSED TIME 
DUMP OUT ALL RKll REGISTERS ON ERROR 



YOU ARE ADVISED TO READ THE DOCUMENT FOR THIS PROGRfi.-. 



CO. 
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&21 

&23 
b2M 
bSS 
bZb 
hZ7 
&28 
b2S 
&30 
&31 
632 
633 
63S 
&35 
b3fc 
637 
638 
63<3 
640 
6M1 
6M2 
6M3 
64H 
645 
646 
647 
646 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
66C 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 



001100 



000011 
000012 
000015 
000200 
177776 

177774 

177772 
177570 

177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
OOCIOO 
000040 
0O0C2C 



.S8TTL BASIC DEFINITIONS 

:«IN!TIflL ADDRESS OF THE STACK POINTER ««« 1100 »»» 
$TACK= 1100 

.EQUIV EMT, ERROR ;; BASIC DEFINITION OF ERROR CALL 

• EOUIV lOTiSCOPE 1 1 BASIC- DEFINITION OF SCOPE CALL 

•niSCELLANEOUS DEFINITIONS _ . , « 

;CODE FOR HORIZONTAL TAB 



At= 

LF= 
CR= 
CRLFs 
PS= 
.EOUIV 
STKLHT= 
PIRO= 
DSURs 
DOISPs 



U 
12 
15 
200 
177776 
PS.PSW 
17^774 
177772 
177570 
177570 



C^ FOR CA^IAgI return 
CODE FOR CARRIAGE RETURN-LINE FEED 
•PROCESSOR STATUS UORD 

; STACK LiniT REGIS FER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDUARE SUITCH REGISTER 
HAROUARE DISPLAY REGISTER 



«GENERAL PURPOSE REGISTER DEFINITIONS 



ftor 

Rl= 
R2= 
R3= 
R4= 

R7= 
SP= 
PC= 



•XO 
'•/.I 

y.3 
y.s 

-/.6 

Y.7 

X7 



GENERAL REGISTER 



CISTER 
GENERAL REGISTER 
GErCML AGISTER 
SrCRRL REGISTER 
GENERAL REGISTER 
GETCRAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



•PRIORITY LEVEL DEFINITIONS 



PR1= 
PR2= 
PR3= 
PR4= 
PRS= 
PRb: 
PR7= 

SU14S 
SU13S 
SW12: 
SUlls 
SUlO: 
SUOS= 
SU08s 
SWJ7= 
SU06= 
SU05= 
SU04S 



0 
40 
100 
140 
200 
240 
300 
340 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



ITCH REGISTER- SUITCH DEFINITIONS 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 



•C-il-OZRKHG. 

677 
679 
faTS 
&80 
&81 
&82 
&83 
&8H 
f>85 
&8b 
b97 
b88 
bS<3 
b% 
bSl 
692 
bS3 
b94 
b<3S 
b% 
b«37 
bS8 

bgs 

700 
701 
702 
703 
70S 
705 
7Qfc 
707 
708 
709 
710 
711 
712 
713 
71H 
715 
7ib 
717 
718 
71" 
720 
721 
722 
723 
724 
725 
72b 
727 
726 
729 
73G 
731 
732 
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DOi 
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000010 
000004 
000002 
000001 



100000 
040000 
020000 
OlOOGO 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
0000b4 
000240 



SU03= 10 

SU02= 4 

5U01: 2 

SUOOs 1 

.EOUIV 5U09,SU9 

.EQUIV SU08,SU8 

.EQUIV 5U07,SU7 

.EQUIV sugs,su6 

.EOUIV SU05.SU5 

.EQUIV SUOS.SUM 

.EOUIV 5U03,SU3 

.EOUIV SUQ2.SU2 

.EQUIV SUOl.SUl 

.EOUIV SUOO.SUO 

:»DflTA BIT DEFINITIONS (BITOO TO BIT15) 

6lTl5- ICXXXX) 

BIT 14= 40000 

BIT13= 20000 

BIT12= 10000 

BITlls 4000 

BITlOs 2000 

BIT09= 1000 

BITOBs 400 

BIT07S 200 

BIT06= 100 

BITOSs 40 

BIT04r 20 

BIT03= 10 

BIT02= 4 

BIT01= 2 

BITOO= 1 

.EOUIV BIT09,BIT9 

.EOUIV BIT06,BITB 

.EOUIV BIT07,BIT7 

.EOUIV BITOb.BITb 

.EOUIV BITOS.BITS 

.EQUIV BIT04,BIT4 

.EOUIV BIT03,BIT3 

.EOUIV BIT02,BIT2 

.EOUIV BITQ1,BIT1 

.EQUIV BITOO, BITO 



;»BflSIC "CPU" 
&RRVEC= 4 
RESVECs 10 
TBnvEC=14 
TRTVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PURVEC= 24 
ENTVECs 30 
TRftPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 



TRAP VECTOR fiOORESSES^ ^ „ 

;TirC OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
-T- BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) «SC0PE»» 
POWER FAIL , 
EMULATOR TRAP (EHT) »tERROR»» 
"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQLEST VECTOR 



0 



10-n-DZRKHG. 
DZRKHG.PU 

733 
73M 

737 
738 
73'3 
7H0 
7H1 
742 
7M3 
744 
745 
74b 
747 
74B 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
75S 

7bD 000174 
761 000176 
762 

763 000200 

764 

765 

766 000210 

767 000214 
768 

7bS 
770 
771 
772 
773 
774 
775 
776 
777 

778 
779 

780 

781 000046 
782 

783 000052 

784 

785 

786 

787 

7S8 



RK11-RK05 
25-fiPR-77 

000 100 



PERFORMANCE 
10:18 



EXERCISER 
8flSIC 



MflCYll 30(1046) 
DEFINITIONS 



EOS 



OOOQQQ 



000174 
000000 
000000 

000137 003376 
000210 

105237 001253 
000137 003376 



000220 
000046 
022750 
000052 
OOOOOC 
000220 



KWL^EC=100 
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;KU11L CLOCK VECTOR 



.EQUIV 



.EQUIV 
.EQUIV 
, EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



.EQUIV 
.EQUIV 
.EQUIV 



BIT15.ERR 

BlT14,HE 

8IT13.SCP 



8IT12,DPL 
8IT10,DRU 
8IT09,SIN 
8IT07,DRY 
8IT06,RUS 
8IT05,UPS 



8IT12,SKE 
8ITQ1,CSE 
8IT00,UCE 



.SBTTL TRAP CATCHER 

:»ftLL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2. HALT" 
♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
tLOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPREG: .UORD 0 ;; SOFTWARE DISPLAY REGISTER 

SWREG: .UORD 0 ! | SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) _ 

JflP aiSTART :;JUriP TO STARTING ADDRESS OF PROGRAM 



.=210 

INCB FRSTRT 
JflP SiSTART 



RESTART ADDRESS. IF RESTART IS 
DONE AT 210, THt BOUNDARY CONDITION 
TESTS (TSTl-7) ARE SKIPPED. IF SU 4 
IS SET THEN THE DISKS ARE NOT REWITTEN 
(UROSK) WITH RAICOn PATTERNS. NORAHALLY 
ALL THE DISKS PRESENT ARE CONPLETELY 
WRITTEN WITH RANDOM PATTERNS, AT THE 
BEGINING OF THE 
EXERCISER PART OF THE PROGRAM. 

.SBTTL ACT 11 HOOKS 

lAoOKS REQUIRED BY ACTll . . 

;SAVE PC 



SSVPCs. 
,=46 
SENDAD 
.=52 

.WORD 0 
.=SSVPC 



::1)SET L0C.46 TO ADDRESS OF iENDAD IN .lECP 

;;2)SET L0C.52 TO ZERO 
RESTORE PC 



;KT11 REGISTER DEFINITIONS , ^ 
! SBTTL MEMORY MANAGEMENT DEFINITIONS 



TC-ii-DZRKHG. 
DZRKHG.Pll 

7OT 

790 

791 

792 

793 

79M 

795 

7% 

797 

798 

799 

800 

301 

802 

803 

80H 

805 

80£) 

807 

808 

809 

810 

811 

812 

813 

814 

815 

81b 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

83£> 

837 

838 

839 

840 

841 

842 

843 

844 



RKU-RKQS PERFORflftNCE EXERCISER flACYll 30(104b) Ob-JUN-77 14:55 PftCE 18 
25-APR-^^/ 10:18 (lEtlORY flONftGEMENT DEFINITIONS 



000250 



177572 
177574 
17757b 
i7251b 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
17231b 



172320 
172322 
172324 
17232b 
172330 
172332 
172334 
17233b 



172340 
172342 
172344 
i7234b 
172350 
r2352 
172354 
17235b 



1723fcC 
I723b2 
1723b4 
I723bb 
17237C 
172372 
172374 
17237b 



:#KT11 VECTOR ADDRESS 
MHVECs 250 

:«KT11 STATUS REGISTER ADDRESSES 

SRO= 177572 
SRls 177574 
SR2= 17757b 
SR3= 17251b 

:#KERrCL -I- PAGE DESCRIPTOR REGISTERS 



KIP0R0= 
KIP0R1= 
KIPDR2= 
KIP0R3- 
KIP0R4S 
KIPORS= 
KIP0R6: 
KIP0R7S 



172300 
172302 
172304 
17230b 
172310 
172312 
172314 
17231b 



:»KERNEL "D" PAGE DESCRIPTOR REGISTERS 



KDPORO: 
KOPDRls 
KDP0R2= 
KDP0R3= 
K0P0R4S 
KOPORSs 
KDPDRb: 
KDPDR7= 



172320 
172322 
172324 
17232b 
172330 
172332 
172334 
17233b 



;*KERrCL "I" PAGE ADDRESS REGISTERS 



KIPAR0= 
KIPARls 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KiPARSs 
KIPARbs 
KIPflR7s 



172340 
172342 
172344 
1723% 
172350 
172352 
172354 
17235b 



;*KERrCL "D- PAGE ADDRESS REGISTERS 



KDPAROs 
KDPARlr 
KDPAR2= 
KDPAR3= 
KDPAR4S 
KDPAR5= 
KDPARb: 
KDPAR7= 



1723b0 
1723b2 
1723b4 
1723bb 
172370 
172372 
172374 
17237b 
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.SBTTL COnnON TAGS 



G02 

Ob-JUN-77 



14:55 PfiGE IS 



945 






94t) 






947 






949 






94S 






850 






951 




001100 


852 


001100 




853 


001100 


000000 


854 


001102 


000 


855 


001103 


000 


856 


001104 


000000 


857 


001106 


000000 


858 


001110 


000000 


85^ 


001112 


000000 


860 


001114 


000 


861 


X1115 


001 


8£>2 


001116 


000000 


8S3 


001120 




864 


001122 


000000 


865 


001124 


OCKKIOO 


866 


001126 


000000 


867 


001130 


000000 


868 


CK31132 


000000 


969 


001134 


000 


870 


001135 


000 


871 


001136 


00(X)00 


872 


001140 


177570 


873 


001142 


177570 


874 


001144 


177560 


875 


001146 


177562 


876 


□01150 


177564 


877 


001152 


177566 


878 


001154 


OOQ 


879 


001155 


002 


880 


001156 


012 


881 


001157 


000 


882 


001160 


Ann A 

000000 


883 






884 


001162 


CX)0000 


885 


001164 


000000 


986 


001166 


000000 


887 


001170 


000000 


888 


001172 


Mn^%^%nn 

000000 


889 


001174 


000000 


890 


001176 


000000 


891 


001200 


OOCKIOO 


892 


001202 


tf^^%nn 

000000 


893 


001204 


(XXKIOO 


894 


001206 


177607 


895 


UUlclc 


077 


896 


001213 


015 


997 


001214 


000012 


398 






899 

90C 


001216 
CO 1220 


177400 


177422 



;»THIS Tfl8LE CONTftlNS VARIOUS COMHON STORftGE LOCflTIONS 
;ftUSE0 IN THE PROGRAH. 



scniAG 

tPASS: 
JTSTNM 
SERFLG 
SICNT: 
SLPflOR 
SLPERR 
SERTTL 
SITEHB 
SERflAX 
SERRPC 
SGDADR 
S^AOR 
SGOOAT 
SBDOAT 



SAUTOB: 
SINTAG: 

5UR: 
DISPLAY 
$TKS 
ITKB 
JTPS 
STPB 
SNULL: 
SFILLS 
SFILLC 
STPFLG 
SREGAO 



:1130 



.UORO 

.UORO 
.UORO 
.UORO 
.UORO 
.BYTE 
.BYTE 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.BYTE 
.BYTE 
.UORO 
.UORO 



0 
0 
0 
0 
0 

1 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

DSUR 
UORO 00 ISP 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
■ BYTE 
.UORO 



SREGO: .UORO 

SREGl: .UORO 

SREG2: .UORO 

SREG3: .UORO 

SREG4: .UORO 

SREG5: .UORO 

SREG6: .UORO 

SREG7: .u;*RO 

SREGIO: .UORO 
SESCAPErO 
SBELL 



SQUES 
SCRLF 
SLF: 



0 
2 
12 
0 

0 

0 
0 
0 
0 
0 
0 
0 
0 
0 



ASCI2 <207><377'<377> 

ASCII /V 

ASCII <15> 

ASCI2 <12> 



START 

CON' 

m 

CON 
CON 
CON 



m m 



CON 
CON 

CON 
CON 



OF 
AINS 

AINS 



CONTAINS 
CONTA 



rrAirg 

iTAINS 
AINS 

AINS 
AINS 



RESERVED- 



;;AUT0riftTIC MODE 
1 1 INTERRUPT MODE 



COMMON TAGS 
PASS COUNT 
T« TEST NUMBER 
EmOR FLAG 

SUBTEST ITERATION COUNT 
ADDRESS 
URNFOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDKSS OF 'GOOD' DATA 
AOD^SS OF 'BAD' DATA 
'GOOD' DATA 
'BAD' DATA 
-NOT TO BE USED 



INDICATOR 
INDICATOR 



. ; ##»»»«#»»»»»»«»#♦»»»*##«♦**«♦* 

ft<«:DS: .UORO 177400 
PKEP: .WORD 177402 



ADDRESS OF SUITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBO STATUS 
TTY USD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADORESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS I OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED" 
-TERMINAL AVAILABLE" FLAG (BIT<07>=0=YE5 
CONTAINS THE ADORESS FROM 
UHICH (SREGO) UAS OBTAINED 
CONTAINS ((IREGAO)+0) 
CONTAINS ((SREGA0)+2) 
CONTAINS ((SREGAD)+4) 
CONTAINS (($REGAD)+bJ 
CONTAINS (($REGAD)+10) 
CONTAINS ((SREGfl0)+l25 
CONTAINS ((SREGAD)+14) 
CONTAINS ((SREGAD)+lb) 
CONTAINS ((SREGADHSO) 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 



HOE 

§|WPS fJsff^^E E«R5^ ,ng^yu 3oaosb) at-im-?? :h:SS p«« m 



%1 001222 

902 0C122H 

903 00122b 

904 001230 

905 001222 

906 X123M 
907 

908 001236 
909 

910 X12Ha 

911 0012H2 
912 

913 0012MM 

914 

915 

916 0012H6 

917 

918 

919 001250 

920 

921 

922 

923 

924 

925 

926 001252 

927 001253 



177404 
177406 
177410 
177412 
177416 
177546 

0003'2 

000220 
000222 

000240 



000340 



177777 



300 
000 



JQISER 


fiaCYH 


3011046 


cunnun 


Tore 






. HUKU 


1 '?'?unu 


KKMC : 


. UQRD 


1 77M0b 


RKdH: 


,HOm) 


177410 


RKDA: 


.WORD 


177412 


RKOB: 


.WORD 


177416 


KULS: 


.UORO 


177546 


rCNTR: 






RKVEC: 


.UORO 


220 


RKSTftT: 


.UORO 


222 


PPRLVL: 


.UORO 


240 


KUPLVL: 


.UORO 


340 


SRORV: 


.UORO 


177777 


FTITLE: 


.BYTE 


0 


FRSTRT: 


.BYTE 


0 



:ST«TU5 REGISTER FOR KUllL 



; NORMAL RKll INTERRUPT VECTOR ADDRESS 
IpSU TO BE USED ON INTERRUPT 

PROGRRN PRIORITY LEVEL=5. PRIORITY LEVEL 
AT UHICH THE PROGRAM OPERATES CAN BE CHANGED 
lY ALTERING THIS LOCATION. 
RIORITY LEVEL OF THE KUUL CLOCK SERVICE 
ROUTINE. 

'SRORV CONTAINS THE DRIVE NO UHOOSE SERIAL 
NO IS TO BE TYPED OUT UHEN AN ERROR OCCURS, 
IF 5U 1 IS SET. UHEN (SRDRV)=-1 SERIAL NO 
IS NOT TYPPED OUT, BECAUSE THE ERROR UA5 NOT 
POSITIVELY ATTRIbOtABLE TO A SPECIFIC DRIVE. 



;FLAG FOR RESTART AT 210 



932 
933 

93M 001254 XOOIQ 
935 

936 001264 OOOOOC 
937 
938 
939 
940 
941 
942 

943 0012E>£i 000010 
944 
945 

Vf^ 
94B 
949 
950 
951 
952 
953 
954 
955 
956 



RriaNCE EXER 



flfiCYU 
TflGf 



30(104&) 
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959 
9b0 
%1 
9&2 
%3 
9b4 
%5 
9&b 
%7 
9Be 
969 

970 Q0130& 000010 

971 

972 

973 

974 

975 

97b 

977 

978 

979 

980 

981 

982 

983 



THIS TftBLE CONTAINS (IN ASCENDING ORDER) THE DRIVE NUWERS THAT ARE , 
PRESENT THUS IF 3 DRIVES 0^1,2 ARE PRESENT: PGR JILL CONTAIN PDRl UILL 
CONTAIN 1 AND P0R2 WILL CONtAtN 2. THE UPPER BIT OF EACH 'PGR' BYTE IS SET IF ^HE 
CORRESPONDING DRIVE IS AN T' DRIVE. 



; CONTAINS TOTAL NUMBER OF DRIVES PRESENT 



PDR. .BLKB 10 
ORVPRS: .UORO 0 

THE FOLLOWING LOCATIONS CONTAIN SERIAL NUMBERS CORRESPONDING TO EACH 
DRIVE THE SERIAL NUMBERS ARE KEYED IN BY THE USER, l*CN THE PROGRAT 
IS STARTED WITH SWITCH 1 SET TO I. THIS FEATURE IS NORMALLY USED IN 
PRODUCTION ENVIRONMENT. 



SRNO: 



.BLKU 10 



; SERIAL NO'S FOR DRIVES 0-7 



= ^!lcmWl?F^Ml5rs/^ ' 



nc a i,unwiu3 IN THE QUEUE. TO BE ^ 

eSch key is associSted uitA an execu^ab^e 

icbffWC'ON THE RKll. VARIOUS BITS OF THE KEY DESCRIBE A COMMAND 
I AS INDICATED 8EL0U 



<0-2> 
<4> 

<5> 
<&> 

<7> 

<B-10> 
<11> 

a2> 

<14) 
<15> 



KEY: 



DRIVE NUMBER ON WHICH THE COMMAND IS TO BE EXECUTED 
INDICATES THAT THE HEADS ARE BEING/OR HAVE BEEN 

IN§ ci^°A°^HP*CHK^^lHOULD BE DOME FXLOWING THE 'WRITE' 
iSlCATES A WRITE CHECK FUNCTION HAS BEEN INITIATED ^ 
IfCICATES THAT A FUNCTION IS IN PROG^M (IT IS NOT SET 

¥IRcS?iriSg^?8s}?l8S^8? ^ rzAm's-KE. TABLE 
(POSITIONS BEING 0.1.2.3.4.5.6.7) 

j^CATES THAT FUN^Ttof* tofe^tS^ING TO THIS KEY HAS 

^CA?EsllGH PRIORITY FOR THE COMMAND (NORMALLY 

MM ffl &SSS!a?l0 THIS KEY HAS BEEN 
iBBftfS BECAUSE im i^^ (DSELECT) 
INDICATES THAT THE COMMAND HAS KEN COMPLETED ^ ^ 
(ALSO SET WHEN CUMMANO IS ABORTED AFTER RETRIES) 



.BLKU IC 



;KEY FOR THE COMMANDS IN QUEUE 



THE PARAMETERS TO BE USED FOR EACH COMMAND IN THE QUEUE 
ARE STO^ IN A TABLE STARTING AT 'CMND'. BITS <8-l0> , , 
OF THE COfWw KEYS (KEY. KEY2, — KEYB) ARE USED ^0 POINT 
TO THE RIGHT S?:T OF PARAMETERS. 

WORD 1 COHTAINS RKDA TC BE USED . 
WORD 2 CONTAINS RKCS (FUNCTION BITS ONLY) 
WORD 3 CONTAINS RKWC iWORD COUNT 2'S COHPi 
UOOR 4 CONTAINS RKBA 



JQ5 
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98M 
985 

988 



991 



99S 
995 
9% 

997 
998 
999 
1000 
1001 
I0G2 
1003 
lOOM 
1005 
1006 
1007 
1008 
1009 
1010 
1011 



00132b 000040 



00142b OOOOIC 



00143b 000010 



00144b 000010 
0Q145b 000000 



CMND: .BLKU 40 ; STORAGE TABLE 

DRIVE IS SET. BITS 0-3 CONTAIN THE OFFSET TO KEY I UHICH MADE THE OPIVE 

; OFFSET FOR KEYS (TAKING KEY AS BASE). KEY •= 0FFSET<0-3> /2 ♦ 1 
BUSY: .BLKB 10 ;BUSY FLAGS FOR DRIVES 0-7 

; THESE FLAGS UHEN SET INDICATE THAT A DRIVE IS BEING 
•POSITIONED OR HAS ALREADY BEEN POSITIONED. 



POS: 



.BLKB 10 



; DRIVE 0 POSITIONED 



;RETRY COUNTS FOR A PARTICULAR FUNCTION ON A DRIVE THE FUNCTION IS ABORTED 
!0N A DRIVE WHEN THE RETRY COUNT REACHES 3. 



RETRY: .BLKB 10 



UCFLG: 



,UORD 



1012 


0014bO 


000000 


QSCNT: 


.UORD 


0 


1013 












1014 












1015 












101b 












1017 


0014b2 


000000 


PRSFNC: 


.WORD 


0 


1018 








.UORD 




1019 


0014b4 


000000 


PSTFNC: 


0 


1020 












1021 












1022 








.WORD 




1023 


0014bb 


000000 


CICNT: 


0 


1024 


001470 


000000 


CICNTl: 


.UORD 


0 


1025 












102b 








.UORD 




1027 


001472 


000000 


TIMER: 


0 


1028 


001474 


000000 


ERCODE: 


.UORD 


0 


1029 


00147b 


000000 


DRVPTR: 


.UORD 


0 


1030 


001500 


000000 


DRVCNT: 


.UORD 


0 


1031 












1032 












1033 


001502 


000000 


QDRV: 


.UORD 


0 


1C3M 


001504 


000000 


OCYL: 


.UORD 


0 


1035 


00150b 


000000 


OSUR: 


.UORD 


0 


103b 


OQISIO 


000000 


QSEC: 


.UORD 


0 


1037 


0C1512 


000000 


OFNC: 


.UORD 


0 


1038 


001514 


000000 


QBUSAD: 


.UORD 


0 


1039 


00151b 


000000 


QURCNT: 


.UORD 


0 



; DRIVES 0-7 RERTY COUNTS 

;IF BIT 15 IS SET URITE CHK IS TO BE DONE 
FXLOUING THE URITE. BITS 0-3 CONTAIN THE 
; OFFSET TO KEYf (FROM BASE=KEY) 

:THIS IS A COUNT FOR KEEPING TRACK OF THE Tirt 
TW(EN BY ALL THE B COMMANDS IN THE QUEUE. 
IF THIS COUNTS OOUN TO 0 AN ERROR IS REPORTED 



COTAINS INFO ABOUT THE PRESENT COMMAND 
BEING PERFORMED OH THE RKU _ 
CONTAINS INFO ABOUT THE COMMAND PERFORMED 
BEFORE THE 'PRSCHND' 



THIS IS A COUNT-TIMER USED FOR KEEPING TRACK 

OF THE TIME TAKEN BY ANY FUNCTION TO BE 

COMPLETED. IF THE COUNT GOES TO 0 AN ERROR IS REPOR"^ED. 



TEMPORARY REGISTERS USED BY 'GENaRQ' 
ROUTINE TO STORE VARIOUS PARAMETERS 
OF A COMMAND AS THEY ARE GENERATED. 
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lOMO 






lOMl 






1042 
1QM3 






IQHH 
1(545 


001520 


000000 


104b 


001522 


000000 


1047 


001524 


000000 


1048 


00152b 


CX30000 


i04q 


001530 


000000 


1050 


001532 


000000 


1051 






1052 






1053 






1054 






1055 






105b 






1057 


001534 


000 


1058 


001535 


000 


1059 






lObO 


00153b 


000000 


lObl 


001540 


000000 


10b2 






10b3 






10b4 






10b5 






lObb 






10b7 






lObS 






lObS 


001542 


000010 


1070 






1071 


(Ml 552 


000000 


1072 


001554 


000000 


1073 


00155b 


000000 


1074 


0015b0 


000000 


1075 






107b 






1077 






1078 






107q 






1080 


0015b2 


000010 


1081 






1082 






1083 






1084 






1085 


001b02 


000010 


108b 






1087 






1088 






108*9 






lOSO 






10«3l 


001b22 


000010 


1C92 






1093 






1004 






1D95 







iTHIS TRBLE CONTAINS VARIOUS MAPPING FACTORS TO BE USED 
;FOR GENERATING RANDOM PARAMETERS FROM RANDOM NUMBERS 



DRMAP: 

CYLMAP: 

SECMAP: 

FNMAP: 

BAMAP: 

WCMAP: 



.UORD 
.UORD 
.UORD 
.WORD 
.WORD 
.UORD 



0 
0 
0 
0 
0 
0 



MAPPING FACTOR FOR GENERATING RANDOM DRIVE NUMEEP 
MAPPING FACTOR FOR CYLINDER 
MAPPING FACTOR FOR SECTOR 
MAPPING FACTOR FOR FUNCTION 

BUS ADDRESS 
UORD COUNT 



MAPPING FACTOR FOR 
MAPPING FACTOR FOR 



THESE TUO FLAGS CORRESPOND TO THE 2 INTERRUPT HANDLERS (RKll) USED 
IN THIS PROGRAM. WHEN THE INTERRUPT HANDLER IS ENTERED THE FLAG IS 
CLEARED OR SET. 



INTFLG: .BYTE 
INTIFL: .BYTE 



SAVKEY: 
ECOUNT: 



.UORD 
.UORD 



0 
0 

0 
0 



;F0R 'INTHND CLEARED ON ENTERING HANDLER 
•FOR 'INTISK', SET ON ENTERING HANDLER 



THIS TABLE CONTAINS COUNTS FOR THE NUMBER OF OF ERRORS OCCURING ON A 
DRIVE (NOTE: ONLY THOSE ERRORS UHICH ARE POSITIVELY ATTRIBUTABLE TO A 
SPECIFIC DRivEK THE COUNT KEPT ONLY IF SWITCH 2 IS SET. UHEN THE COUNT 
REACHES THE MAXIMUM ALLOWABLE (USUALLY 3) THE DRIVE IS DROPPED FROM 
TESTING AND IS TAKEN OUT OF THE DRIVE SELECTION TABLE. 



ERDRV: .BLKB 10 

KUHR: .UORD 0 

KUMIN: .UORD 0 

KUSEC: .UORD 0 

KUCOUNT: .UORD 0 



; COUNT FOR DRIVES 0-7 

: COUNTS HOURS (2'S COMPLEHENT) 
COUNTS MINUTES (2'S COMPLEMENT) 
COUNTS SECONDS (2'S COMPLEMENT) 
COUNTS CPS FROM KUllL (2'S COMPLHNT) 



:THIS TABLE CONTAINS COUNTS FOR HAROERRORS ON A PARTICULAR DRIVE. ^ ^ 

EX hecnI Bill contain the total number of hard errors that occured on 

jDRIVE 2 



HECN: .BLKU 10 



; DRIVE 0-7 HARD ERROR COUNTS 



:this table contains counts for seek errors 
;0n a particular drive. 



SKECN: .BLKU 10 



: DRIVE 0-7 SEEK ERROR COUNTS 



;THIS TABLE CONTAINS COUNTS FOR SIN ERRORS ON A 
PARTICULAR DRIVE 



SINCN: .BLKB 10 



; DRIVE 0-7 SIN COUNTS 



:THIS TABLE CONTAINS COUNTS FOR WRITE CHECK ERRORS 
THAT OCCURED ON A PARTICULAR DRIVE 
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10% 
10'57 

HOI 
1102 
1103 
1104 
llOS 
llOb 
1107 
1108 
1109 
1110 
1111 
1112 
1113 



001b32 000010 



001&52 000010 



001672 000010 



001712 000010 



UCECN: .BLKU 10 



;WCE COUNT FOR DRIVES 0-7 



;THIS TABLE CONTAINS COUNTS FOR CHECK SUM ERROR THAT 
iOCCUREO ON A PARTICULAR DRIVE 



CSECN: .BLKU 10 



;CSE COUNT FOR DRIVES 0-7 



THIS TABLE CONTAINS COUNT OF NUMBER OF FUNCTIONS 
THAT WERE ABORTED ON A PARTICULAR DRIVE. A 
FUNCTION IS ABORTED ONLY AFTER DOING RETRIES 

ABORT: .BLKU 10 ; ABORT COUNT FOR DRIVES 0-7 

; COUNTS FOR NUMBER OF DATA ERRORS THAT OCCURED ON INDIVIDUAL DRIVES. 

OATER: .BLKU 10 ; DRIVES 0-7 



I 
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1114 


001732 


000000 


1115 


00173H 


000000 


111& 


00173b 


000016 


1117 






1118 






1119 


001772 


000000 


1120 


00177M 


000000 


1121 


001776 


000016 


1122 






1123 


002032 


001326 


112M 


Q0203S 


001336 


1125 


00203b 


001346 


112S 


002040 


001356 


1127 


0020H2 


001366 


1128 


(W20HM 


001376 


112S 


0C20% 


001406 


1130 


0Q2050 


001416 


1131 






1132 






1133 


002052 


000000 


113M 






1135 


002054 


000000 


113b 






1137 


002056 


000000 


1138 






113S 






1140 






1141 






1142 






1143 






1144 


002060 


000000 


1145 






11% 






1147 






1148 






114<3 






1150 


002062 


005015 


1151 


002070 


005015 


1152 


002076 


005015 


1153 


00210H 


005015 


1154 


002112 


042HM0 


1155 


002120 


047440 


1156 


00212b 


047111 


1157 


002133 


127 


1158 


002140 


000 


1159 


002141 


122 


llbO 


0021% 


051127 


llBl 


002154 


000113 


llb2 


002156 


042122 


11&3 


002164 


000 


1164 


002165 


015 


1165 


002172 


052122 


1166 


002200 


000 


1167 


002201 


123 


1168 


002206 


005015 


1169 


002214 


044120 



NWRTL: .UORD 0 
NURTH: .WORD 0 
.BLKU 14. 



NRDL: 
NRDH: 



PCHND: 



.UORD 
.UORD 
.BLKU 

.UORD 
.UORO 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



BPSEBO: .UORD 
MAXBR: .UORD 
REPCNTr.UORO 



0 
0 

14. 

cm) 
criND+io 

Cf1N0^'•20 
CflMD+JO 
CHND-f4C 
C«ND*50 
C«ND+60 
CmD+70 



0 
0 
0 



:L0 WORD: OF THE 2 WORD COUNT-CIVIHG TOTPL 
HI UORD:! OF WORDS WRITTEN ON DRIVE C 
;F0R REST OF DRIVES 1-7 

LO UORD: 2 UO^D COUNT GIVING TOTAL 
HI UORD: I OF UORDS REM) ON DRIVE 0 
FOR DRIVES 1-7 

POINTERS TO P<«fir€TERS FOR COflTWNDS IN QUEUE 

POINTER TO SECOND COflMftND 

POINTER TO THIRD COrmC 

POINTER TO FOURTH COftlflND 

POINTER TO FIFTH COMHRMD 

POINTER TO SIXTH COfmiD 

POINTER TO SEVENTH COWMAND 

POINTER TO EIGHTH COMNAND 



XXDPnO: .UORD 0 



; ASCI I MESSAGES 



CONTAINS THE LOWEST BUS ADDRESS STARTING UHICH DATA TRANSFERS 
CAN BE DONE 

CONTAINS THE HIGHEST BUS ADDRESS TO UHICH DATA TRANSFERS 
rdt PC noNF 

CONTAINS THE REPETITION COUNT- THE NUMBER 
OF TIMES Q REQUESTS UILL BE GENERATED. UHEN THIS 
COUNT GOES TO 0, IT r£MiS END OF PASS. HOUEVER 
NOTE THAT THERE IS NO TRUE END OF PASS. IN THIS KINO 
OF EXERCISER PROGRAM. THE EXERCISER RESUMES FR0f1_ 
THE POINT IT LEFT OFF, AFTER TYPING OUT THE END IF 
PASS MESSAGE. 

LOU BYTE CONTAINS ADDRESS OF RK05 DRIVE 
WHICH PROGRAM UAS LOADED FROM; HIGH BYTE 
CONTAINS THE RK05 'XXDP' CODE. 



045523 
041527 
051503 
040510 
047522 
020116 
020107 
044522 

040505 
020124 



000105 
000105 
000105 
042122 
000122 
047504 
000 
042524 

000104 
044103 



041440 045510 



040412 
042105 

042505 
041520 
051531 



047502 
005015 

000113 
000075 
041040 



MSGl: 
MSG2: 
M5G3: 
MSG4: 

MSGS: 

MSG6: 

MSG7: 
MSGS: 

MSGS: 

HSGIQ: 



MSGll 
MSG12 
MSGl 3 



.ASCIZ <15><12>/SKE/ 
.ASCIZ<15><12>/UCE/ 
.ASCIZ<15><12> /CSE/ 
.ASCIZ < 15X12) /HARD EROR/ 

.ASCIZ/ ON DOING / 

.ASCIZ /URITE/ 



.ASCIZ 
.ASCIZ 



/READ/ 
/URT CHK/ 



.ASCIZ /RD CHK/ 

.ASCIZ <15>< 12) /ABORTED/ <I5><12> 



.ASCIZ /SEEK/ 
.ASCIZ <l5><i2>/PC=/ 
.ASCIZ /PHYS BA=/ 



B?RWi^^?r^' PiiipB?!!? [wr"^' iSg 
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1170 
1171 

m 

1174 
1175 
117b 
1177 
1178 
117g 
1180 
1181 
1182 
1183 
1184 
1185 
1188 
1187 
1188 
118S 
11% 
11<31 
11S2 
1183 
1194 
1195 
11% 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
121b 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 



002222 
002225 



002245 
002252 
0G22b0 
0022bb 
002274 
002302 
002305 
002312 
002320 
00232b 
002334 
00233b 
002344 
0023S2 
002360 
002362 
002370 
002372 
002375 
002377 
002404 
002412 
002420 
002426 
002434 
002442 
0024S0 
002456 
002%4 
002472 
002474 
002S02 
002510 
00251b 
002S24 
002S32 
002540 
00254b 
002554 
002562 
002570 
00257b 
002604 
002612 
002620 
002626 
002634 
002642 
002650 
002652 
002660 



036501 
015 

mm 

015 
020105 
047104 
05211b 
020124 
020122 

015 
034055 
051525 
051440 
000072 
005015 
050120 
044522 
000040 
005015 
000105 
020054 

106 

Lis 
04252b 
051504 
047124 
051504 
020104 
042523 
041527 
042524 
020040 
000040 
005015 
02U105 
045523 
047502 
020040 
005015 
042514 
04bl03 
051105 
043101 
044124 
051124 
005015 
020122 
052111 
04bl03 
020104 
052105 
000040 
005015 
000040 




042012 
020043 
052047 
051105 
043101 
000 
045412 
020040 
02b531 
020122 

042040 
042105 
04252b 

051104 

000 
000 
042012 
020040 
053440 
020040 
051040 
020040 
020040 
020105 
051122 
044040 

051104 
020040 
020105 
052122 
044523 
047125 
052040 
040505 
047522 
042524 
042522 
042511 
051105 
047503 
047511 
040505 
047117 
054522 



020117 


I1SG14: 


.flSCIZ 


053122 


f1SG15: 


.flSCIZ 


044504 






044440 






050125 






042524 






054505 


flSGlb: 


.ASCIZ 


041040 






000067 




.ASCII 


04751b 


nSG17: 


nSGlB: 


.PSCIZ 


047522 


I1SG19: 


.ASCIZ 


042040 






021440 






053111 


I15G20: 


.ASCIZ 



044522 
051127 
044522 
051127 
040505 
041440 
020040 
040504 
020040 
020105 

053111 
020040 
040440 
020040 
00011b 
041101 
020117 
020122 
020122 
020122 
020105 
000123 
047522 
04211b 
020116 
042522 
051040 
021440 



f1SG24: 
nSG25: 
nSG2b: 



.flSCIZ 
.flSCIZ 
.flSCIZ 



<15><12>/N0 DRVS PRSNT/ 

<15><12>/DRVE I DIDN'T INTERUPT AFTER / 

<15><12>/KEY-8 BUSY-7/ 



/ SR NO/ 

<i5><12>/ DROPPED DRIVE • / 



<15><1£>/DRIVE/ 
/F/ 

<15><12>/DRIVE WRDS WRITN URDS READ CSE UCE DATERR 



HE / 



nSG2bA: .flSCIZ < 15) <12> /DRIVE SKE ABORT SIN/ 



f1SG27: .ASCIZ < 15) <12> /UNABLE TO CLEAR ERROR AFTER THREE TRIES/ 



f1SG28: .ASCIZ < 15>< 12> /ERROR CONDITION CLEARED ON RETRY « • 



044524 042515 riSG29: .ASCIZ <15><12>/TiriE / 



•C-H-OrRKHG, RKIl-RKOS PERFORflWiCE 
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1227 002663 OHO 

1228 002664 000040 
1229 



EXERCISER flACYU 30 ( 
COtmON TAGS 

BLNKS3: .fiSCII / 

BLNKS2: .ASCII / 

BLNKSl: .A5CIZ / 
.EVEN 



06-JUN-77 14:55 PACE 
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ISX 

1231 

1232 

1233 

123M 

123S 

1236 

1237 

1238 

123^ 

1240 

1241 

1242 

1243 

1244 

1245 

12% 

1247 

1248 

124g 

12SQ 

12S1 

12S2 

1253 

1254 

1255 

125b 

1257 

1258 

125S 

12b0 

12bl 

12b2 

12&3 

12b4 

12b5 

1268 

1267 

1268 

126S 

1270 

I27i 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

.3QC 



002666 



002666 
002670 
002672 
QG2674 



002676 
002700 
002702 
002704 



002706 
002710 
002712 
002714 



0O27I6 
002720 
002722 
002724 



002726 
00273C 
002732 



027632 
031730 
032422 
000000 



027650 
031776 
032436 
000000 



027723 
031730 
032422 
000000 



027746 
031730 
032422 
000000 



027771 
03173C 
03E422 



.SBTTL ERROR POINTER TABLE 



iTHlS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

tTHE INFORMATION IS OBTAirCD BY USING THE INDEX NUMBER FOUND IN 

•LOCATION IITEMB. THIS NU^BER INDICATES WHICH ITEM IN THE TABLE IS PEPTINEN'. 

tNOTEl: IF IITEM8 IS 0 T« ONLY PERTINENT DATA IS (SERRPCj. 

«N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOL^CU= 



EH 
DH 
DT 
OF 



;; POINTS TO THE ERROR MESSAGE 

POINTS TO THE DATA HEADER 

;; POINTS TO THE DATA 

; POINTS TO THE DATA FORMAT 



SERRTB' 

»THERE ARE THO CLASSES OF ERRORS: _ 

il. ERRORS IN EXERCISER PART OF T« PROGRAM - ERROR NUMBERS BELOU 100 
«2. ERRORS IN THE NON-EXERCISER PART OF THE PROGRAM - ERROR NUMBERS EQUAL 
«T0 AND GREATER TH«N 100. 

«THE DOCUMENT CONTAINS MORE INFORMATION ON THESE. 

«THE FOLLOWING ERRORS OCCUR IN THE EXERCISER PART OF THE PROGRAM. 



:ITEM 1 



;ITEM 



;ITEH 



:ITEM 



;ITtH 



EMI 
DHl 
DTI 
0 



EMS 

DH2 
DT2 
0 



EMS 

DHl 
DTI 
C 



EM4 

DHl 
DTI 
0 



EMS 

DHl 
DTI 



; ERROR ON mill 

PC RKCS RKER RKDS RKDA 
;S£RRPC SREGO IREGl tREG2 iREG3 



;flTTEMPT TO INITIATE FUNCTION ON 
PC DRIVE 
SERRPC SREGO 



■BUSY' 3RIVE 



; CONTROL READY NOT SET 
:PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



;R/W/5 READY NOT SET 
;PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



; CONTROL READY NOT SET AFTER FIRST INTERRUPT ON ISSUING 5EEk 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



•C-11-D2RKHG. RKU-RK05 PERFORMANCE EXERCISER nfiCYl] 
DZRkHG.PU 25-fiPfl-77 10:18 ERROR POINTER 



128S 


002734 


OOOOCK] 


1287 






1288 






128^ 






12S0 






12S1 


002736 


030056 


12S2 


002740 


031730 


12S3 


002742 


032422 


129H 


002744 


000000 


12% 






12% 






12S7 






12% 


0027% 


030115 




002750 


031776 


1300 


002752 


032436 


1301 


002754 


000000 


1302 






1303 






130M 






1305 


002756 


030162 


1306 


002760 


031776 


1307 


002762 


032436 


1308 


002764 


000000 


130q 






1310 






1311 






1312 


002766 


030237 

MM • •VMM 

031730 


1313 


002770 


131M 


002772 


032422 


1315 


002774 


000000 


1316 






1317 






1318 






131"3 


002776 


MM MM ■ M 

030317 


1320 


003000 


031730 


1321 


003002 


032422 


1322 


003004 


000000 


1323 






132M 






1325 






1326 


003006 


030371 


1327 


003010 


031730 


1328 


003012 


032422 


132«3 


003014 


000000 


1330 






1331 






1332 






1333 


003016 


030444 


1334 


003020 


031730 


1335 


003022 


032422 


1336 


003024 


000000 


1337 






1338 






133S 






13H0 


003026 


030517 


12M1 


X3Q3G 


031730 



:ITEf1 



:ITEM 



En6 

DHl 
DTI 
0 



EF17 
0H2 
DT2 
0 



:ITEI1 10 



EH10 
DH2 
DT2 
0 



;ITEn U 



Eflll 
DHl 
DTI 
0 



:ITEf1 12 



Eni2 
DHl 
DTI 
0 



:ITEf1 13 



EM13 
OHl 
DTI 
0 



;ITEH 14 



EI114 
OHl 
DTI 
0 



; ITEM 15 



EMI 5 
OHl 



D03 

3011046) 06-JUN-77 14:55 PftGE 2S 
TABLE 



; WRONG BITS IN RKCS. EXPECT SEEK 
PC RKCS rkeA RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



:'BUSY' FLAG CLEAR ON INTERRUPTING DRIVE 
PC DRIVE 
tERRPC SREGO 



{'POSITIONING' FLAG FOR INTERRUPTING DRIVE CLEAR 
PC DRIVE 
: SERRPC SREGO 



:'ERR'OR SET AFTER FIRST INTERRUPT ON ISSUING SEEK 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



;SCP SET AFTER FIRST INTERRUPT ON ISSUING SEEK 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



; CONTROL READY NOT SET AFTER SEEK DONE INTERRUP' 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl $REG2 SREG3 



: INTERRUPTING DRIVE (SEEK DONE) WAS NOT 'BUSY- 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



:R/W/S READY NOT SET FOR INTERRUPTING DRIVE iSEEK DONE 
I PC RKCS RKER RKDS RKDA 



1D-11-DZRKHG. RK11-RK05 PERFORtlflNCE 
DrRKHG.Pll 2S-9PR-77 10:18 



13H2 

I3M3 

13MM 

1345 

13% 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

I3b0 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1368 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

13% 

1397 



EXERCISER MflCYll 
ERROR POINTER 



E03 

30(1046) 06-JUN-77 14:55 PftGE 30 
TfiBLE 



003032 
003034 


032422 
OOOOX 


:ITEH 


DTI 
0 

16 


: SERRPC SREGO 


SPEGl 


SREG2 


SREG3 


003036 
003040 
003042 
003044 


030603 
0317X 
032422 
000000 


:ITEt1 


Eni6 

DHl 
OTl 

0 

17 


;'SIN' ERROR 
;PC RKCS 
SERRPC SREGO 


RKER 
SREGl 


RKDS 
SREG2 


RKDA 
SREG3 


0030% 
003050 
003052 
003054 


030614 
0317X 
032422 
XXOO 




Ef1l7 

DHl 

DTI 

0 


;'ERR'OR ON DOING SEEK 
PC RKCS RKER 
; SERRPC SREGO SREGl 


RKDS 
SREG2 


RKDA 
SREG3 






;ITE!1 


20 










003056 
003060 
003062 
003064 


030642 
0317X 
032422 
000000 




En20 
DHl 
DTI 
0 


;SCP DID NOT SET PFTER SEEK UAS DONE 
PC RKCS RKER RKDS RKDfl 
SERRPC SREGO SREGl SREG2 SREG3 






;ITEf1 


21 










003066 
003070 

00X72 

00X74 


030706 
032013 

032444 
XQOX 


:ITEP1 


Ef121 
DH21 

DT21 

0 

22 


:SOFT ERROR 
; SERRPC RKCS 
;CYL SUR 
SERRPC SREX 
:SREG4 SREGS 


RKER 
SEC 
SREGl 
SREG6 


RKDS 
SREG2 


RKDA: DPVI 
SREG3 


00X76 
X31X 

013102 

X3104 


XXX 
032013 

032444 

ooxx 


;ITEn 


0 

DH21 
DT21 
0 

23 


; SERRPC RKCS 
;CYL SUR 
: SERRPC SREGO 
SREa4 SREGS 


RKER 
SEC 
SREGl 
SREG6 


RKDS 
SREG2 


RKOA: CRVI 
SREG3 


X3106 
003110 
003112 
X3114 


030720 
032110 
032422 
XOOOO 




EM23 
0H23 
DTI 
0 


;DflTP (COflPflRISON) ERROR 
PC RKBfl EXPCT RECVD 
SERRPC SREGO SREGl SREG2 


RKDA 
SREG3 






;ITEf1 


24 










003116 
X3120 
X3122 
003124 


030747 
0317X 
032422 
XOOOO 




Ef124 
DHl 

DTI 
0 


; CONTROL READY CLEAR ON 
PC RKCS RKER 
: SERRPC SREGO SREGl 


INTERRUPT AFTER RK FUNCTION 
RKDS RKDA 
SREG2 SREG3 



•€-il-DZRKHG. RKil-RK05 PERFORMANCE EXERCISER MACYl 
CrRKHCPU 25-ftPR-77 10:18 ERROR POINTER 



13S8 
139S 
IMOO 
1401 
1402 
1403 
140S 
1405 
1406 
1407 
1408 

:-f0<5 
mo 

1411 
1412 
1413 
1414 
1415 
141b 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
142H 
1425 
1426 
1427 
1428 
142<3 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
143<3 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
:44S 
H5D 
1451 

1^52 



003132 
00313S 



003136 
003140 
003142 
003144 



003146 
003150 
003152 
003154 



003156 
003160 
003162 
003164 



003166 
003170 
003172 
003174 



003176 
003200 
003202 
003204 



003206 
003210 
003212 
003214 



003216 
003220 
003222 
003224 



032466 
000000 



031023 
031730 
032422 
000000 



031076 
032232 
032504 
000000 



031137 
032313 
032436 
000000 



031232 
031776 
032436 
OOOOOC 



031323 
032265 
032504 
000000 



031355 
032265 
032504 
OOOOOQ 



031432 
031730 
332422 
OOOOOC 



:ITE1 25 



8h25 
DT25 
0 



:ITEf1 26 



En26 
DHl 
DTI 
0 



;ITEn 27 



EM27 
DH27 
DT103 
0 



iITEn 30 



En30 
DH30 
DT2 
0 



:ITEM 31 



En31 

DH2 
DT2 
0 



:ITEM 32 



En32 
DH103 
DT1Q3 
0 



:ITEf1 33 



Ef133 
OH 103 
DT103 
0 



;ITEM 34 



En34 
DHl 
DTI 
0 



FD? 



I 30(1046) 06-JUN-77 14:55 PftGE 31 
TABLE 



;PC RKCS RKER RKDS RKDft DRIVE • 
:IERRPC SREGO IREGl SREG2 IREG3 IPE&4 



: STUCK IN LOOP. 8 0-C0f1MANDS SHOULD BE DONE BY NOU 
;PC RKC5 RKER RKDS RKDO 
SERRPC SREQO SREGl SRES2 IREG3 



:flTTEnPT TO DO URITE CHECK BEFORE WRITE 
;PC KEY FUNCTION CODE 
PC SREGO IREGl 



:flTTEnPT TO REEXECUTE fl COMMAND IN PROGRESS OR ALREhDy FINISHED 
;PC KEY 
;IERRPC IREGO 



: 'FUNCTION IN PROGRESS' FLAG FOP INTERRUPTING DRI'.'E IS NO"' SE' 
;PC DRIVE 
lERRPC IREGO 



UNEXPECTED DRIVE INTERRUPTED 
PC E/PCT RECVD 
lERRPC iREGO IREGl 



: WRONG FUNCTION CODE IN RKCS AFTER IN'ERRJP"' 
PC EXPCT RECVD 
lERRPC IREGO IREGl 



DRIVE READY CLEAR 

PC RKCS RKER RKDS RKDA 
lERRPC IREGO IREGl IREG2 IREa3 



1C-il-DrRKHG. Rki:-RK05 PER^'OfWANCE EXERCISER MflCYll 30(1046) 
3::RKHG.P11 ?S-flPR-7? 10:18 ERROR POI^lTER TABLE 



go; 



Ob-JUN-77 



1W:55 PAGE 32 



1454 
1455 

1458 

145'3 

14C>0 

1%1 

14b2 

1463 

1464 

1465 

1466 

1467 

1468 

146<3 

1470 

1471 

1472 

1473 

147M 

1475 

1476 

1477 

1478 

147g 

14B0 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

14BS 

1490 

14«91 

1492 

1493 

1494 

1495 

14% 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 




003236 
003240 
003242 
003244 



X3246 
003250 
003252 
003254 



003256 
003260 
003262 
003264 



003266 
003270 
003272 
003274 



003276 
X3300 
003302 
003304 



003306 
003310 
003312 
003314 



urn 

032422 
000000 



031467 
031730 
032422 
000000 



031503 
031730 
032422 
000000 



030720 
032110 
032422 
000000 



031513 
031730 
032422 
000000 



031553 
031730 
032422 
000000 



031567 
032265 
032504 
000000 



:ITEM 35 



EI135 
DHl 
DTI 
0 



;ITEH 36 

Eri36 
OHl 
DTI 
0 

:ITEf1 37 

EM37 
DHl 
DTI 
0 



DRIVE OQUER LOU 

PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



DRIVE UNSAFE 

PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



UPS SET 

PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SRCG2 SREG3 



:*THE 
:« 



FOLLOUING ERRORS OCCUR IN THE NON-EXERCISER PAR' OF THE oROGRfiP. 



;ITEf1 100 

EI123 
DH23 
DTI 
0 

;ITEi1 101 

Enioi 

DHl 
DTI 
0 

;ITEf1 102 

Eril02 
DHl 
DTI 
0 

;ITEM 103 

Eril03 
DHl 03 
DT103 
0 

;ITEM 10-i 



;DATA (COflPARISON) ERROR 

:PC RKBA EXPCT RECVD RKDA 

; SERRPC SREGO SREGl SREG2 SREG3 



INTERRUPT DID NOT OCCUR AFTER URrE 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



;'ERR'OR SET 

;PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



RKDA INCREMENTED URONGLY 
PC EXPCT RECVD 
SERRPC SREGO SREGl 



003316 031615 



Erii04 ;RKBA INCREMENTED URONGLY 



H03 

SRiia^^ft*' nii^i^"^ mr^ ''"im po'shu'iM'^" '^^'^ " 



1510 
1511 
1512 
1513 
1514 
1515 
151b 
1517 
151B 
1519 
1520 
1521 
1522 
1523 
152M 
1525 
1526 
1527 
1528 
152*3 
15X 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 



003320 
003322 
003324 



003326 
003330 
003332 
003334 



003336 
003340 
003342 
003344 



0033% 
003350 
003352 
003354 



003356 
003360 
003362 
003364 



032265 
032504 
000000 



031643 
032327 
032504 
000000 



031673 
031730 
032422 
000000 



030720 
032265 
032504 
000000 



031712 
032354 
032422 
000000 



DH103 
0 

:ITEH 105 

EI1105 
DH105 
DTI 03 
0 

•.ITEM 106 

EM 106 
DHl 
DTI 
0 

: ITEM 107 

En23 
DH103 
DT103 
0 

;ITEM 110 

EMI 10 
DHl 10 
DTI 
0 



;PC EXPCT RECVD 
;SERRPC SREQO SREGl 



;RKWC DID NOT OVERFLOW TO 0 
; PC RKDfl RKUC 
SERRPC SREGO SREGl 



;MEX BITS INCORRECT 
;PC RKCS RKER RKDS 
SERRPC SREGO SREGl SREG2 



RKDA 
SREG3 



iDPTfl (COMPfiRISON) ERROR ON REftD 
:PC EXPCT RECVD 
SERRPC SREGO SPEGl 



:URITE CHECK ERROR 
PC RKCS RKER RKBA RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



Tir^ PoWik'i&r'" 



IQ3 

Ob-JUN-77 
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1541 
1542 

mi 

1545 
i54b 
1547 
1548 
154q 

ill? 

1552 

IIP 

1555 
155& 
1557 
1558 
1559 
15S0 
I5&1 
1582 
15£>3 
1564 
I5t>5 
156& 
15b7 

1570 
1571 
1572 
1573 
1574 
1575 
157b 
1577 
1578 
157<3 

1580 
1581 
1582 
1533 
1584 
1585 
1588 
1587 
1588 
158*3 
15% 
1591 
1592 
1593 
1594 
1595 
15% 



:IF POUER FAILED, ON RETURN OF POUER ENTER HERE. 



eesH egfHS 



00337b 000005 



003H00 

003414 
003420 



003432 

mi 

003440 
003442 
003444 



003444 



00345b 
0034b0 

003%4 
003472 
003500 
00350b 
003514 
003522 
003530 
00353b 



003544 
003550 
00355b 
0035b4 
003572 
003bOQ 

003802 
003b04 
003810 
003812 
003820 
00382b 



023737 000042 00004b 

m 



START: RESET 
;;GIVE DRIVES 
CflP 



l7Sbl4 
012700 000250 
032777 000200 
OOIOOb 
005001 
00S3Q1 

)ij7b 



175570 20$: 



0013b7 
000000 



STfiRTA: 
. SBTTL 



TIME TO LOAD 

mi"' 

Srkda 

•250, RO 

•200.aRKD5 

STARtA 

Rl 

Rl 

.-2 

RO 

20S 



STATISTICS HAVE 
;T0 BE SAVED, ON RETRM FROM PUP FhIl. 



:CLEAR THE BUS 
IF PR6GRAt1 UA5 STARTED BY APT 



SELECT UNIT 0 
WAIT FOR.. 
DRIVE READY.. 
IN CASE.. 
OF APr. 
START, BUT.. 
DON'T WAIT.. 
FOREVER. 

;RKDS BIT 7 (DRIVE READY; NEVER SE". 



01270b 


001100 




nov 




001140 




CLR 

CUP 


001374 






BNE 


012708 


001100 




MOV 








INITIALIZE 


012737 


027204 


000020 


MOV 


012737 


000340 


000022 


MOV 


012737 


027350 


000034 


MOV 


012737 


0003H0 


00003b 


MOV 


012737 


027450 


000024 


MOV 


012737 


OG03MO 


00002b 


MOV 


012737 


003530 


001 10b 


MOV 


012737 


003538 


001110 


MOV 








;;SI2E FOR A 








;; EQUAL TO A 


013746 


000004 




MOV 


012737 


003804 


000004 


MOV 


012737 


177570 


001140 


MOV 


012737 


177570 


001142 


MOV 


022777 


177777 


175340 


CMP 


X1012 






BNE 


000403 






BR 


012716 


003812 




64$: MOV 


000002 






RTI 


012737 


000178 


001140 


b5$: MOV 


012737 


000174 


001142 


MOV 


012637 


000004 




66$: MOV 



:;LOOP BACK IF NO 

;: SETUP THE STACK POINTER 



INITIALIZE THE COMMON TAGS 
THE COMMON TAGS ($CMTAG) AREA 

•$CMTAG,R6 ;;FIRST LOCATION TO BE CLEAREC 

(R6)* CLEAR MEMORY LOCATION 

•SUR,R6 ;;00NE' 

•STACK.SP 
A FEW VECtORS 

•$SCOPE,SlIOTVEC ;:IOT VECTOR FOR SCOPE ROUTINE 
•340.aitOTVEC+2 LEVEL 7 

•fTRAP.aiTRAPVEC jiTRAP VECTOR FOR TRAP CALLS 
•340.aiTRftPVEC+2;LtvEL 7 
tSBADN.aiPURVEC POUER FAILURE VECTOR 
•340,at™RVEC*2 ; CEVEL 7 

•..StPADR ; INITIALIZE THE LOOP ADDRESS FOR SCOPE 

I.IfLPERR iiSETUP THE ERROR LOOP ADDRESS 

HARDl^ SWITCH REGtSfER. IF NOT FOUND OR IT IS 



•r, SETUP FOR A 
aiERRVEC.-(SP) 
•64$.aiEARVEC 
lOSuA.SUR 
•DO IS^ DISPLAY 
t-l,aSUR 
86$ 

65$ 

185$, (SP) 



SOFTUARE SUITCH REGISTER. 
SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HAROUARE SUICH REGISTER 
AND A HAROUARE DISPLAY REGISTER 
TRY TO REFERENCE HAROUARE SUR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HAROUARE SUR IS NOT = -1 
BRANCH IF ) TIMEOUT 
SET UP FOR TRAP RETURN 



ISUREG.SUR 

•D I SPR^G. DISPLAY 

(SP}*,3«^RRVEC 



POINT TO SOFTWARE SUR 
RESTORE ERROR VECTOR 



JO 



-1 
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iS<37 



lb07 

IblO 
l&ll 
1£)12 
1&13 
IbiS 
ibl5 
Iblb 
lbl7 

ibie 

Ibiq 

ibao 

lb21 
lb22 
lb23 
IbSS 
lb2S 
lb2b 
lb27 
1E>28 
lb2<3 
lb30 
lb31 
lb32 
lb33 
lb34 
lb35 
lb3b 
lb37 
lb38 
lb39 
IbMO 
IbMl 
IbHS 
lbM3 
lb4H 
lb45 
lb% 
lbH7 
lb48 
IbMS 
IbSO 
IbSl 
lb52 



003b32 023737 
OO3bS0 Q0141b 



mat 88!iii 

003b50 lOMMQl 
023727 

•m 

000403 
112737 

000433 




;7c 
0038)74 
0Q3&7b 
003704 
003704 

003774 
003774 
004002 
004010 
00401b 



004024 
004030 
00403b 
004040 

0040% 
0040S4 
00405b 
OQ40b2 
0040bb 
004070 
004074 

004124 
004124 
00412b 
004132 
004134 
004135 
00413b 
004140 
004144 
0041% 
004152 

gQ4i7b 

00417b 
004200 



012737 
013737 
012737 
013737 



005037 
122737 
001 IbO 
013737 

122737 
101002 
105037 
005737 
001424 
104401 
000413 



0050% 
11371b 
104403 
001 
000 
000520 
005227 
001115 
104401 
000411 



00504b 
11371b 



000042 0Q0Q4fa 

177777 
00370b 
000042 

001140 00017b 
000001 001134 



02b20b 
001244 
022552 
00124b 



0020b0 
000002 

000040 

000010 

0020b0 
000042 

00407b 



0020b0 

177777 
004154 

0020bC 



000030 
000032 
000100 
000102 



000041 
0020b0 
0020b0 



m 



•SBTTL 



9142. at4b 



UE IN ftCTli fiUTOMflTIC HjDE' 
SKIP TITLE PRINTOUT 



IjJIC UNDER XXDP/flCT" 



bSS: 
70$: 

::b8$: 



Ji^^kSi^inJt^OGRm IF FIRST PASS 

^ S7i WmnWm 

TYPE .b8I ItYPE PSCI2 STRING 

V^U FJR SOFTMflRE S« J^jp? 

8NE I'H BRMCHlTYts 
CMP SWR.ISUREG ; jMFTUBflE^SWTCH REG SELECTED' 

^ iiTO^sIS SETTINGS 

BR 70S 

novo ■l.ffiUTOB ;;SET AUTO-flODE INOICflTOR 

BR b7S ::GET OVER THE flSCIZ 

PSCI2 <CRLF>»RKll/RKOS^ERFORMftNCE EXERCISER*' 15/ < 12>*HflINDEC-ll-DZRKW-G*'CRLF 



MOV iSERROR.aiEflTVEC 

MOV PPRLVL,SlEnTVEC+2 

NOV iKUSRvt.SlKULVEC 

flOV KUPLVL,fitKULVEC42 



;EflT VECTOR FOR ERROR ROUTINE 
; LEVEL 5 

iKUilL CLOCK SERVICE 
LEVEL 7 



•THE FOLLOWING CODE FINDS OUT THE PROGRfiM CONTROL NODE: 
IpSpER Tfire (NftNUftL), ftCTU, RKOP CHAIN OR DUflP 



2S: 



Mil 



72S: 



3S: 



CLR 
CflPB 
8NE 
MOV 

CMPB 

BHI 

CLRB 

TST 

BEO 

TYPE 

BR 

.ftSCIZ 

CLR 

MOVB 

TYPOS 

.BYTE 

.BYTE 

BR 

INC 

BNE 

TYPE 

BR 

.RSCIZ 

CLR 
MOVB 



XXDPMO 
i2.41 

stJ 

40,XXDPMD 

•10,XX0Pf1D 
2S 

XXOPfID 

42 

3S 

.721 

>i% 

<15><i2>/N0T 
-(SP) 

XXDPI1D,(5P) 

1 
0 

ST2 
•-1 
ST2 
.74$ 
^3$ 



<is><i2>/Tc test'6rive / 



; CLEAR 'XXDP' LOAD DEVICE STORAGE 
; LOADED FROtI AN RK05 ' 
;BR IF NOT 

GET DEVICE INDICATOR AND DRIVE ADDRESS 
; LOADING RK05 

VALID DRIVE ADDRESS 
'BR IF YES 

I CHANGE TO DRIVE ZERO 
CHAIN NODE OR ACT 11 AUTO ACCEPT " 
BR IF NEITHER 
;:TYPE ASCIZ STRING 
UGET OVER THE ASCIZ 
TESTING DRIVE / 

: CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
GET NUMBER OF DRIVES 
FIRST TIME THROUGH HERE " 
BR IF NOT 

{TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



-(SP) : CLEAR UORD ON THE STACK 

XXDPND.ISP) ; GET DRIVE ADDRESS 



Ko; 



06-JUN-77 14:55 PfiGE 3b 



-DZRKHG RKU-RKQ5 PERFORFIflNCE EXERCISER HflCYll 30(10Hb) 06-JUN-77 14 
'-.^11 ' 5l-APft-7? 10:18 GET VALUE FOR SOFTURRE SWITCH REGISTER 



mi 



0OH2OM 10MM03 

mm ' 

0OM3OQ 

mm muk 

OOMMOO 



OOHSlb 



00430b 





□DHHOb 




nn 1 3CLI 


■I 1 II 


, hfu 


unHlO 


uuguuc 




Ib71 


uinHlc 


UU9UO' 


no f 3CU 


1 en 
IbTe 


BPrHlb 




on 1 occ 
OOlcbb 


lb7j 


tJUHMcx 




cvi 1 sen 
UOlcbU 


IbTM 


UU4Hgb 




001262 


IbTb 


□U4H3c 


UiCr Ul 


□□12b4 


lOfO 


xmiii-ir 

UirrlJb 




nn 1 one 




nnuuus 
mrrrtc 


010377 


i/tbbc 


Ib/o 








IbT^ 




□01415 




1 con 


rmuucc 


01DP37 


nn 1 cn3 


1 CO 1 


nnuucs 
ULTribc 


1 04420 




1 coo 


nmiiiCLi 
ulrrTb4 




nnsncn 
UUcUbU 


IboJ 


nnuuTn 






1 cou 




120037 


UUcUbu 


Ibob 




□01404 




Ibob 


fVHicnn 


110021 




1 L.Q7 




010223 




loao 


nnucnu 


005237 


nn 1 otM 
uuicb^ 


1 COG 


rmuc 1 n 
uirtaiu 


062702 


nsnnnn 




004^14 


005200 




lb<31 


004Slb 


022700 


000010 


lb% 


004522 


001347 




lb<33 


004524 


013703 


0012b4 


lb«3M 


004530 


001510 




lb% 


004532 


012701 


001254 


lb% 


004538 


005000 




lb97 


004540 


005002 




ib9e 


004542 


104401 


0023b2 


ib<n 


0045% 


111102 




1700 


004550 


010200 




1701 


004552 


002472 




1702 








1703 


004554 


104401 


002372 


1704 








170S 


0045b0 


01024b 




I70b 


004562 


.04403 




1707 


004564 


001 




1708 


004565 


000 





::7bS: 



::78$: 



ST2: 



IS: 



2S: 
3S: 



4S: 




4 



TYPE 
BR 

.ASCIZ 
.ASCIZ 



TYPE THE 




ftODRESS 



^nOVE RKOP PACK AN 



AND REPLACE IT/<15'<12> 



/ HALT PROGRAM, ftttlOVE 
/WITH A UORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAN/ 



:0N. RESET 



CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
NOV 
MOV 
MOV 
BIT 
BEO 
MOV 



DRV. RESET 



DRVPRS 
RO 

pSr 

P0R^2 
PDR+4 
PDR+6 

•key:r3 

R2.aAKDA 

•260,aRKDS 

31 

R2,Q0RV 



TST 
BEO 
CMPB 
BEQ 
MOVB 
MOV 
INC 
ADD 
INC 
CMP 
BNE 
MOV 
BEO 
MOV 
CLR 
CLR 
TYPE 
MOVB 
MOV 
BLT 

TYPE 

MOV 
TYPOS 
.BYTE 
.BYTE 



XXDPHD 
2S 

RO, XXDPHD 
3S 

RO,(Rn> 
R2.(R3)* 
0P<^ 
•20000, R2 
RO 

•8.,R0 
IS 

DRVPRS, R3 
ST4 

IPDR.Rl 

RO 
R2 

,M5G20 

Ird.r? 

R2,r6 
9S 

,MSG24 

R2.-(SP) 

I 
0 



;FIN0 UHICH DRIVE I'S ARE PRESENT 
; CLEAR DRIVES PRESENT TABLE 



SELECT A DRIVE 
IS IT IN SYSTEM' 
NO 

LOAD DRIVE ADDRESS INTO QDRV 
RESET THE DRIVE 
PROGRAM LOADED FROM AN RK05 ' 
BR TP NOT 

LOADED TPOH THIS RK05 ' 
BR F YES 

STORE THE DRIVE NUMBER 

STORE ADDRESS IN KEY TABLE 

BUMP THE NUMBER OF DRIVES COUNTER 

NEXT DRIVE ADDRESS 

NEXT DRIVE NUMBER 

DONE ALL DRIVES'" 

LOOP TILL DONE 

FIND UHICH DRIVES ARE TYPE F 
BR IF NOT DRIVES PRESENT 



;GET DRIVE NUMBER 



;TYPE THE DRIVE NUMBER 



LQ 



3 



•O-ll-DZRKHG, RK11-RK05 PERFOfltlANCE EXERCISER fIfiCYll 30(10%)^ 9fe;JUN:77 1^:55 PAGE 37 
D2RKHG Pll 25-flPR-77 10:18 GET VW.UE FOR SOFTUflRE SWITCH REGISTER 



17OT 


0045bC> 


000241 


1710 


004570 


006002 


1711 
1712 


004572 


0(X>QQS 
OKOOS 


1713 


P0457b 


0O6oor 


1714 


004600 


042702 


1715 






171b 


004604 


010237 


1717 


00%10 


104420 


1718 






i7ig 


004612 


032702 


1720 


004616 


001003 


1721 






1722 


004620 


052702 


1723 


004624 


000402 


1724 






172S 


004626 


042702 










004632 


010277 


1728 


004636 


032777 


172S 


00%44 


001420 


1730 






1731 


00%% 


012777 


1732 


004654 


104417 


1733 
1734 


004656 
004664 


032777 
001010 


1735 






173b 


004666 


152711 


1737 


00%72 


104401 


1738 






1739 


00%76 


032777 


1740 


004704 


001774 


1741 






1742 


004706 


105737 


1743 


004712 


001012 


1744 






1745 


004714 


032777 


17% 


004722 


001406 


1747 






1748 


004724 


104401 


I74g 


004730 


104413 


1750 


004732 


006300 


1751 


004734 


012660 


1752 






1753 


004740 


Q05201 


1754 


004742 


00^^303 


1755 


004744 


003300 


175fc 


004746 


104401 



017777 
001502 

020000 

020000 

020000 5J: 

174372 bJ: 
000200 174352 

000011 174346 
000100 174332 



000200 
002375 

000100 174312 7J: 



001253 



000002 174216 



002326 



001266 



001213 



8S: 



91: 



CLC 
ROR 
RQR 
ROR 
ROR 
8IC 



R2 

R2 
R2 

117777, R2 



nOV R2,QDRV 
DRV. RESET 



BIT 
BNE 

BIS 
BR 



120000, R2 
5S 

120000, R2 
6S 



BIG 120000, R2 



MOV 
BIT 
BEQ 

flOV 

CON. ROY 

BIT 

BNE 

BI5B 
TYPE 

BIT 
BEQ 

TSTB 
BNE 

BIT 
BEQ 

TYPE 
RDOEC 
ASL 
NOV 

INC 
DEC 
BGT 
TYPE 



R2.SRKDR 
l260,aRKDS 

as 

•ll.aRKCS 
I^OO,aRKDS 

•200. (Rl) 
,N5G^5 

•lOO.aRKOS 
71 

FRSTRT 
9S 

iSUi,aSUR 
9S 

,nSG17 
RO 

(SP)*,SRNO(RO) 

Rl 
R3 
4S 

,JCRLF 



MOVE DRIVE NUMBER TO BITS 15, H. 
BITO TO C«RRY 



118 ?8 iili? 



BITO TO BIT13 
CLEAR ANY EXTRANEOUS BITS 



; RESET THE DRIVE VIA ODRV 

:EVEN DRIVE NUMBER'" 
•NO - CLEAR BIT 

;MAKE IT AN ODD DRIVE 

;MAKE IT AN EVEN DRIVE 

; SELECT THE NEW DRIVE 

;HAKE SURE DRIVE IS IN SYSTEM 

•IF NOT, SKIP THIS TEST 

; START A SEEK TO CYL 0 
;UAIT FOR CONTROLLER 
IS IT IN nOTiON'" 
•NO - J TYPE DRIVE 

;YES - SET THE F TYPE BIT 
;UAIT FOR HEADS TO STOP 



; SERIAL NO. SU SET' 
:N0 

;TYPE "SR NO" 
:REA0 FROM TTY INPUT 
SAVE SERIAL NO FOR THE DRIVE 



1103 



H:SS PAGE 38 



1757 
[71 



17fa0 

17bl 

I7b2 

I7b3 

17b4 

I7b5 

17bb 

1767 

17be 

17E>q 

177Q 

1771 

1772 

1773 

177M 

1775 

1776 

1777 

1778 

177S 

1780 

1781 

1782 

1763 

17BS 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

17% 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 



005044 
005050 
005052 
005056 
005060 



005737 
001003 
162700 
000402 
162700 



005064 010013 



005066 
005072 
005100 
005102 
005106 

005174 



012712 
032777 
001510 
104401 
000432 



000040 
000500 
006000 



032514 
000100 

005110 



174040 



'nnxBA' IS THE HIGHEST Bl'S POORESS (nEHORY) TO UHICH DATA TRANSFERS CAN 
^§Ax8a^ K f!Slli8^NC THE FOLLOWING ALCORITHN: 
1. IF KTll IS NOT PRESENT, 

ft. AND THE PROGRAM IS RUN UNDER XXDP, THEN THE TOP 1.5 K IS RESERVED 
AND THE 'HAXBA* IS CQNPUTED ($LSTAD-bQOO) . 

B. AND THE PROGRAM IS NOT RUNNING UNDER XXDP. THEN THE TOP 320 WORDS 

ARE RESERVED FOR 'MOM' , LOADER, ETC. AND THE 'MAXBA' IS COMPUTED (ILSTAO-SOOj , 

2 IF KTll IS PRESENT 

a: and more THAN 28K'hEH0RY IS PRESENT, THEN THE MAXIMUM BUS ADDRESS 
IS 147776 (OCTAL) 

8. AND LESS THAN'28K IS PRESENT, THEN THE TOP 2K IS RESERVED FOR RKDP 

MONITOR AND 'HAXBA' IS COMPUTED. ^ 

FIGURE OUT THE AVAILABLE MEMORY AND 'MAXBA' 



004752 


004737 


017466 


ST4: 


004756 


012702 


002052 




004762 


012703 


002054 




004766 


005737 


017524 




004772 


100022 






004774 


013700 


017772 




005000 


020027 


001540 




005004 


002012 






005006 


162700 


000040 




005012 


012701 


177772 




005016 


006300 




IS: 


005020 


005201 






005022 


001375 






005024 


162700 


000002 




005030 


000415 




2S: 


005032 


012713 


147776 


3S: 


005036 


000413 






005040 


013700 


017770 


4S: 



5S: 

BS 
6S 
7$ 



JSR 
MOV 
MOV 
TST 
BPL 
MOV 
CMP 
BGE 

SUB 
MOV 

ASL 
INC 
BNE 
SUB 
8R 

MOV 
BR 

MOV 



TST 

BNE 

SUB 

BR 

SUB 



PC.SSI2E 

ibAseba.R2 

IMAXBA,R3 

SKTll 

4S 

SLSTBK.RO 

RO.MISAO 

3S 

140, RO 
I-6|R1 

RO 
Rl 
IS 

12, RO 
6S 

•147776, (R3) 
7$ 

SLSTAD,RO 



3140 
8S 

•500, RO 
6S 

•6000,RO 



GO SIZE THE MEMORY 
INITIALIZE POINTERS 

KTll AVAILABLE^ 

NO _ 
GET THE LAST BANK OF MEMORY 
28K OR HORE^ 

YES 

BACK UP 2 K'S (RKDP MONITOR. ETC. 
AND FORM THE MAXIMUM BUS ADDRESS 
FOR DATA TRANSFER 



MOV R0,(R3) 



MOV 
BIT 
BEQ 
TYPE 
BR 



»PGEND.(R2) 
•SUG6,aSUR 
ST3 
,65S 
&4S 



;FOR 28K OR MORE, THIS IS THE 'MAXBA* 

KTll NOT PRESENT. GET THE LAST 
AVAILABLE ADDRESS 

'XXDP' LOADED PROGRAM ' 
YES 

NO, SAVE THE LAST 320 WORDS 

SAVE THE LAST 1.5K OF MEMORY (RKDP 
MONITOR. ETC. ) 

SAVE TtC MAXIMUM BUS ADDRESS (MAXBA) TO 
WHICH DATA TRANSFER CAN BE DONE SAFELY 
'BASEBA' 



;;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



: ASCIZ < 15X12) /TYPE OCtAL BUS ADDRESSES FOR DATA XFER. BETWEEN 



f1D-ll-D2RKHC, RKll-RKOS PERFORflflHCE EXERCISER fWCYll 30(10%) 
D2RKHC.P11 25-flPR-77 10:18 



IN03 

Ob-JUN-77 



1M:55 Pfi&E 3S 



GET VALUE FOR SOFTUARE SUITCH REGISTER 




81b 

Hi 

820 
821 
822 
823 
82H 
825 
826 
7 



1837 
1838 
1839 
1840 
18M1 
1842 
1843 
1844 
1845 
18% 
1847 

1850 
1851 



005204 000402 



111 

005214 
00521b 
00521b 
005222 

005242 
005242 




0052b0 
0052bO 
0052b4 

005304 
005304 
0(S30b 
005310 
005312 
005314 
00531b 
005320 

005322 
005330 



005344 
00534b 



01134b 
104402 

104401 
000407 



104412 

1037b2 
020013 
1033b0 
010012 

104401 
000407 



104412 
012b00 
020013 
1013b2 
020012 
1017b0 
010013 

023727 
002003 

im 

001402 
000137 



00520b 



005224 



0052bb 



002054 



747b 
1253 



007772 



03747b 
002054 



8S: 



lOS: 



ST3: 
IS: 



BR 

.ASCIZ 



MOV 
TYPOC 

TYPE 
BR 

.ASCI2 

RDOCT 

MOV 

CMP 

BLO 

CMP 

BHIS 

MOV 

TYPE 
BR 

.ASCIZ 

RDOCT 

MOV 

CMP 

BHI 

CMP 

BLOS 

MOV 

CMP 

BGE 

MOV 

TSTB 

BEG 

JMP 



(R2).-(SP) 

,b7l 
bbS 

/ I / 

(R3),-(SP) 



,b<3S 



15X12) /LO LIMit* / 



;'BASEBA' 

;;TYPE fiSCIZ STRING 
;;GET OVER THE ftSCIZ 



'MAXBA' 



(SP)+.RO 

RO,(R$) 

8S 

RJ,(R3) 
R0,(R2} 



^71$ 

<15><12>/HI LIHit*"/ 



CORRECT LO LIMIT' 
CORRECT LO LIMIT' 
'BASEBA' 



;TYPE 05CI2 5TRING 
GET OVER THE flSCIZ 



(SP)+.RO 

R0.(R3) 

lOt 

R0.(R2) 
lOi 

R0,(R3) 

MAXBA, •3747b 
IS 

13747b, HAXBfl 
FRSTRT . 
BCTST 
EXRC5R 



•.CORRECT HI LIMIT' 
; CORRECT LO LIMIT' 
;'HflXBfl' 

;8K MEMORY - CLOBBER XXDPT 

i^HocSflM^RkSTSlTED AT 210- 
;N0 

YES, SKIP TEST 1 TO 7 



D-ll-DZRKHG. 
DZRKHG.PU 



18S2 
1853 
i9SM 
18S5 
1856 
1857 
1858 
1859 
18&0 
18&1 
19fc2 



RK11-RK05 PERFORMANCE EXERCISER 
2S-flPR-77 10:18 GET VRLUE FOR 



MACYU 30(10%) Ob 

SO? th5r£ SHITi 



JUN-77 14:55 
CH REGISTER 



PAGE 40 



005352 
005380 
0053b6 
00537M 
005HOS 
005406 
005410 



012737 
013737 
017737 
062737 
005337 
100002 
000137 



001306 
001264 
174104 
000002 
001500 

007772 



001476 
001500 
001502 
001476 



;THIS IS THE BEGINING OF Tf€ CONSTRflltCD TESTS RinED RT CfCCKiNG THE 
iOIFFERENT BOUNDARY COrCIT IONS OF RK11/RK05 



:FIND OUT THE DRI 

6:tst: nov 

NOV 

NXTDRV: NOV 
ROD 
DEC 
BPL 
JflP 



IVE NUNKf^ TO 
•KEY.ORVPTR 
DRVPftS.ORVCNT 
aORVPTft.OORV 
•2,DRVPtR 
DRVCNT 
TSTl 
EXRCSR 



INfrffiLIZE PTR TO DRVi 

NUNBER OF DRIVES PRESENT 

SAVE DRIVE KBITS 15-13) 

INCRNENT PTR TO NXT DRVI 

DONE RLL DRIVES^ 

NO, GO TEST THIS DRIVE 

RlL DONE, GO TO EXERCISER ofiR^ 



fC-U-OZRKHG. RKii-RKOS PERFORMftNCE EXERCISER 
OZRKHG.Pll 25-flPR-77 10:18 Tl 



riACYU 30(10Mf)) Ofe-JUN-77 14:55 PAGE Hi 
PERFORn URITE OF 401 UORDS (1 SECTOR * 1 UOROS; 



IBbJ 








t tl 

IsbH 








lobS 








Isbo 








1 OC"? 

Iab7 








labo 








1 0£.0 








loTu 








1871 








1872 


nnpu 1 LI 
OOsHlH 


□00004 




1873 








187M 


UUb^lb 


□1 j7ul 


nn 1 cn3 


1875 




mm 
□lOlUc 




loTb 




UbcTUe 


UUUUUc 


1077 








18/a 








1 OTQ 








f oay 
loBD 




10441b 




1881 


005MMO 


104420 




1882 


0054H2 


10441B 




lalM 


UUbf*tM 


Ulc7^7 


1 1 1 1 1 f 

mill 


lo^ 


UUbMbe 


UlcTUJ 


nnnun 1 


1 DOC 

mob 

f DOC 


mcucc 
UUbtbb 




nnc3nu 


loDD 

f oar? 


uUbfbc 


f nu f m 




1 ooo 

iK&l 


rmcucu 




n3n 113 


iHn 


UUbHTU 


10410e 




f Qon 






UcUlA 


1 OQf 


rvicuTc. 


1 nu 1 m 




1 000 

lo*ic 








f 000 


nnccrm 


nnu737 


nanson 


t oou 


nnccnu 


1 nu 1 nc 




Icrsb 










UU33IJD 


m?7nt 

UJCf Ui 


rmnnin 

UUUUiU 


1897 


005512 


001005 




18S8 


005514 


062701 


000012 


1899 


005520 


062702 


00001b 


1900 


005524 


000747 





■ •#«*#•••««****«*•«**»#•«***•**«*•**#«#*#«««*«»**«*«#«««««##«#«#» 

4TEST 1 PERFORM WRITE OF 401 WORDS (1 SECTOR ♦ 1 WORDS) 

;THIS TEST PERFORMS A WRITE OF 401 WORDS (1 SECTOR ♦ IWORD) fifC 
CHECKS IF RKDft.RKBR.RKWC INCREMENTED CORRECTLY. WRITING IS DONE 
ON CYLINDER 0. SufiPftCE 0. SECTORS 0.1 AND 10,11. IT SHOULD BE 
NOTED THAT THts IS R BOUNDRRY COtCITION TRRNSFER. THE VALlDr< 
OF THE TRRMSFER IS CHECKEOIN THE NEXT TEST. 
DRTA PATTERN WRITTEN IS 111111. 

t§Tl: SCOPE 



001110 

II: 

032S14 21: 



NOV 
NOV 
ROD 

NOV 



QDRV.Rl 
Rl.R^ 
12. R2 

III.ILPERR 



CON, RESET 
DRV. RESET 
CON. RESET 

MOV •111111. DBUF 
MOV WOl.Ra 

JSR pc,d6urite 



ERROR 

JSR 

ERROR 

JSR 

ERROR 

JSR 
ERROR 

BIT 
BNE 
ROD 
ROD 
BR 



101 

PC.CHKC5 
10^ 

PC.CHKDfl 
10^ 

PC.CHKUC 
10$ 

•lO.Rl 

tstJ 

112, Rl 
ilb.R2 
2S 



;GET RKOfi 
;SRVE RKDR 

•EXPCTD RKOA AFTER WRITE IS DONE 
; RETURN ADDRESS FOR LUPING 



CLEAR MASK BITS IN POLLING LOGIC 
PATTERN TO BE WRITTEN 
WORD COUNT FOR WRITE 
GO 00 URITE 

INTERRUPT DID HOT OCCUR AFTER l«ITE 

CHECK ERROR BIT IN RKCS 

ERROR BIT IN RKCS SET ON DOING WRITE 

CHECK IF RKDA INCREMENTED RIGHT 

RKDA DID NOT INCREMENT RIGHT AFTER 

A URITE OF 401 UORDS. 

CHECK IF RKUC OVERFLOWED TO 0 

RKUC DID NOT OVERFLOW TO 0 AFTER 

A WRITE OF 401 WORDS. 

SECTORS 10,11 WRITTEN' 

YES 

RKOA TO BE USED NEXT (SEC 10) 
EXPCTD RKDA AFTER WRITE IS DONE 
:;C URITE SECS 10.11 



•«-ll-DZRkHG, RK11-RK05 PERFORHftNCE EXERCISER 
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READ & CHECK THAT 401 UORD URITE WAS DONE CORRECTLY 



1901 








1902 








1%3 








1904 








190S 








190b 








1907 

1 AAA 

1908 


00552b 


AAAAAU 

000004 




1909 








1910 


00^30 


013701 


AA fl 

001502 


1911 


005534 


A • A"* 

012737 


005542 


1912 


005542 


104416 




1913 


005544 


104420 




1914 


0055% 


104416 




1915 








191b 








1917 


0JS550 


004737 


AAf 11 Al_l 

006434 


1918 








1919 


005554 


A fl A*9A A 

012703 


AA fl AAA 

001000 


1S20 








1921 


005560 


AAlt*V^^* 

004737 


AAf iiAll 

006424 


1922 








1923 


0055b4 


104101 




1924 








1925 


00556b 


004737 


AAA fl fl ^ 

020112 


192b 


UUbb/c 


t AU 1 AA 

104102 




1927 
1928 


0D557H 


012704 


AAA^ • 11 

032514 


1929 


005600 


A 1 AU AA 

010402 




1930 


^^re AA 

UUabOc 


AAlt^A^ 

□DH737 


□cUlSu 


1931 


OObbOb 


f Atl f All 

104104 




1932 








1933 


UUbblU 


□lc7U5 


ITTToM 


1934 


(Kl5bl4 


□2c/lc 


t 1 1 1 1 1 

mill 


1935 


AA^r ^A 

005620 


AA f LI t A 

001410 




193b 


005622 


□12737 


111111 

111111 


1937 


AA#-r n-l 

005b3J 


004737 


□05720 


1938 


nnpc All 

005634 


fl ALI 1 AA 

104100 




1939 








4 nun 

1940 








1941 








1942 








1943 








1944 


□05636 


AA^ AAf 

□05205 




1945 


UU564Q 


AA fl tl f 

001421 






005642 


fVM"*yAA 

□05722 




1 Al 1^ 

1947 


005644 


020227 


□3351b 


1948 


005650 


A<1 fl A£ fl 

001361 




t Ai 1 A 








1950 


005652 


005712 




1951 


□05654 


0014Q7 






UIAOSO 


UUSUJ' 


uui ion 


1953 


005662 


004737 


D05720 


1954 


005666 


104100 




1955 








195b 









•iTEST 2 RERO & CHECK THAT 401 WORD l«ITE HAS DOME CORRECTS 

:THIS TEST PERFORMS A READ OT THE 401 WORDS WRITTEN IN THE 
PREVIOUS TEST AND CHECKS THAT T«Y HERE CORRECTLY f«AO HOREO'^ER^ 
IT CHECKS THAT ONLY ONE NON-ZERO HOTO (401TH) HAS WRITTEN IN THE 
SECOND SECTOR AND THE REST Of THE WORDS ARE ALL ZEROS. 

t§T2: SCOPE 



NOV QDRV.Rl 
NOV ilS.iLPERR 
IS: CON. RESET 
DRV. RESET 
CON. RESET 



JSR PC,CLEAN8UF 

NOV •100Q,R3 

JSR PC.DOREAD 

ERROR 101 

JSR PC.CHKCS 

ERROR 10^ 

MOV •DBUF,R4 

MOV R4,R2 

JSR PC.CHKBA 

ERROR 104 

MOV 1-14, R5 

21: CMP illllll.(R2) 

BEQ 3S 

MOV •llllU.iREGl 

JSR PC.ERINfl 

ERROR 100 



INC R5 

BEQ 6S 

3J: TST (R2)+ 

CMP R2.iDBUF+1002 

BNE 2S 

4J: TST (R2) 

BEQ 5S 

CLR SREGl 

JSR PC.ERINFi 

ERROR 100 



-.GET DRIVE • 

I ADDRESS FOR LUPING ON EROR 



CLEAN UP THE DATA BUFFER 
INTO WHICH READ WILL 
BE DONE 
WORD COUNT 

GO DO A READ OF 2 SECTORS 
FROM DISK ADDRESS GIVEN IN Rl 
INTERRUPT DID NOT OCCUR AFTER 
READ OF 401 WORDS WAS DONE. 
CHECK IF EROR BIT IN RKCS SET' 
EROR BIT IN RKCS SET ON DOING A 
READ OF 401 WORDS. 

STARTING BUS ADDRESS, INTO WHICH READ 
WAS DONE 

CHECK IF RKBA INCREMENTED RIGHT 

RKBA DID NOT INCREMENT RIGHT AFTER READ 

OF 401 WORDS. 

ALLOW 12 ERRORS. AT THE MOST 

CORRECT DATA READ' 

YES 

GET EXPCTD DATA kORD 
GET ERROR INFORMATION 
DATA ERROR OCCURRED WHEN A 
READ OF 401 WORDS WAS DONE 
THE DISK ADDRESS FROM WHERE 
THE DATA WAS READ INCORRECTLY 
IS GIVEN IN THE £RROR MESSAGE 

; REPORT 12 ERORS AT MOST 

; INCREMENT POINTER 

I CHECKED ALL 401 WORDS" 



CHECK THAT REST OF 377 WORDS 
ARE ALL O'S 

GET EXPCTD DATA WORD (0) 
GET ERROR INFO 
DATA ERROR. IN A PREVIOUS 
TEST A WRITE OF 401 WORDS 
(1 SECTOR ♦ 1 WORD) WAS DONE 



1D-il-D2RkHG. RK11-RK05 PERFORMANCE EXERCISER 
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igsg 

m 

1%2 
1%3 
1%M 
1%5 
ISbb 
1%7 
lSb8 
1%<3 
1970 
1971 
1972 
1973 
197M 
1975 
197t, 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
198S 
1985 
198E> 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 



005670 
005672 
gK67M 
0K676 
005702 

005704 
005710 
005712 
005716 



005720 
005724 
005730 
005732 
005736 
005740 
005742 
005744 
005750 
005752 
005756 
005760 
005764 
005770 



005205 
001404 
005722 
020227 
001363 

032701 
001030 
062701 
000711 



010237 
011237 
0101% 
020227 
003001 
005316 
005216 
032716 
001405 
032716 
001402 
062716 
012637 
000207 



034514 

OOOQIO 
000012 



001162 
001166 

033512 



000010 

000004 

000004 
001170 



5S: 



6S: 



INC 
BEQ 
TST 

criP 
arc 

BIT 
BNE 
ADD 
BR 



R5 
6S 

(R2)> 

R2,t06UF42000 
4S 

•lO.Rl 
TSTi 
•12, Rl 
1$ 
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READ & CHECK THAT 401 UCRD URITE UAS DONE CORRECTLY 

THE FIRST UORO IS A NON-ZERO 

SHOULD BE ALL ZEROS. IF 

^,0 

CTLY) 

REPORT 12 ERORS AT nOST 
;ALL U0R05 CHECKED^ 
;IF NOT GO BAK 



;UERE SECTORS 10,11 READ 
;YES 

;FR0H NEW RKDA. SEC 10 
GO BACK AND R^AO FROfl 5ECS 10,11 



ERINFl 

R2 CONTAIN ERRORINg'bUS ADDRKS (UHE^ WTAERROR OCCW^^^ 
(R2) CONTAINS BAD DATA THAT UAS READ BACK FROfI DISK. 
Rl CONTAINS DISK ADDRESS UHERE READ BEGAN. 



ERINFl: MOV R2.JREG0 

MOV (Rc ,SREG2 

MOV R1,-(SP) 

CMP R2,lDBUF+776 

BGT IS 

DEC (SP) 

IS: INC (SP) 

BIT 110, (SP) 

BEQ 2S 

BIT #4,(5?) 

BEQ 2S 

ADO •4.(5P) 

2S: MOV (SP)*.$REG3 

PTS PC 



;GET BUS ADDRESS OF DATA ERROR 
•GET BAD DATA UORO (READ) 

; FIGURE OUT THE DISK ADDRESS 
; UHERE DATA ERROR OCCURRED 



IC-ll-DZRKHG. RK11-RK05 PERFORMANCE EXERCISER 
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nflCYll 30(10%) Ob-JUN-77 
PERFORM WRITE OF 12 SECTORS 



14:55 PAGE HH 
* 1 UORD 



1997 






1998 






1999 






2C00 






2001 






2002 






2003 






2004 






2005 






2006 






2007 






2008 


005772 


000004 


2009 


005774 


013701 


2010 


AAA 

006000 


012737 


2011 


006006 


010102 


2012 


006010 


062702 


2013 


006014 


012703 


2014 


006020 


104416 


2015 


006022 


104420 


20Ib 


006024 


104416 


2017 






2018 






2019 


006026 


01273/ 


2020 






2021 


006034 


004737 


2022 






2023 


006040 


104101 


2024 






2025 


006042 


004737 


2026 


0060% 


104102 


2027 


006050 


Cttl4737 


2028 


006054 


104103 


2029 






20X 






2031 


006056 


004737 


2032 


006062 


104105 


2033 


006064 


032701 


CUJ4 


XJUbUfu 


LRJlUUb 


2035 


006072 


010201 


2036 


006074 


062702 


2C37 


006100 


012703 


2038 


006104 


000745 



*TEST 3 PERFORM WRITE OF 12 SECTORS ♦ 1 WORD 

;THIS TEST CHECKS FOR ANOTHER BOUNDARY CONDITION. IT 
PERFORMS A WRITE OF 12 SECTORS ♦ 1 WORD. RKOA.RKBA. 
RKWC ARE CHECKED TO SEE IF THEY ARE INCREHENTE6 CORftEC'> < 
; VALIDITY OF THE DATA WRITTEN IS CHECKED IN THE NE^T 
;TEST. DATA IS WRITTEN ON SECTORS 0-11, SURFACE 0 
CYLINDER 0 (bOOlTH WORD ON SECTOR 0. SURFACE 1, CYL 0). 
ALSO ON SECTORS 0-11, SURFACE 1 (bOOlTH WORD ON SECTOR 
:0, CYL 1) 



001502 

006020 001110 

000021 
006001 



044444 032514 
006304 

020112 
020126 

020230 
000020 



000020 
005401 



t§T3: 



IS: 



SCOPE 
MOV 
MOV 
MOV 
ADD 
MOV 

CON. RESET 
DRV. RESET 
CON. RESET 



QDRV.Rl 
•IS.iLPERR 

Rl,fi2 

•606l.R3 



MOV 

JSR 

ERROR 

JSR 
ERROR 
JSR 
ERROR 



JSR 

ERROR 

BIT 

BNE 

MOV 

ADD 

MOV 

BP 



•44444, DBUF 

PC.DOURITE 

101 

PC.CHKCS 

PC.CHKDA 
10^ 



PC.CHKWC 
10^ 

•20, Rl 

TST^ 
R2.R1 
•2ft.R2 
•5461. R3 
IS 



;GET 

Ilup 



DRIVE • 
ON EROR 



TO 'IS' 



; PATTERN TO BE WRITTEN 

;Q0 DO WRITE 

INTERUPT DID NOT OCCUR ON 

COMPLETION Of WRITE 

CHECK IF EROR BIT IN RKCS SET 

EROR BIT IN RKCS SET ON DOING URI'E 

CHECK IF RKDA INCREMENTED RIGHT 

RKDA DID NOT INCREMENT CORRECTLY 

AFTER A WRITE OF 6001 (OCTAL) WORDS. 

(12 SECTORS ♦ 1) 

CHECK IF RKWC OVERFLOWED '0 C 

RKUC DID NOT OVERFLOW TO C 

WRITTEN ON SURFACE V 

YES 

SURFACE 1 

WORD COUNT 

GO WRITE SURFACE 1 
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REPO & CHECK THPT bOOl UORD URITE MS DOr€ CORRCTLY 



2040 
2041 
2042 
2043 
2044 
2045 
20% 

S& 

204«3 
2050 
2051 
2052 
2053 
2054 
2055 
205b 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
207B 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2386 
2087 
2088 
2089 
2C9C 
2091 
2G92 
2C93 
r:9-» 



006 
006 
006 
006 
006 



14 
20 



32 



006222 
006224 
006226 
0062X 
006234 
006236 
006240 
006242 
0062% 
006252 



m 

062701 
012737 
104416 
104420 
104416 



001502 
000013 

006126 QOIUO 



:«TEST 4 REM) & CHECK THAT 6001 UORO WRITE MS DONE CORRCTir 

:THIS TEST CHECKS TH«T THE 6001-U0RD WRITE THAT MS DONE IN THE 
PREVIOUS TEST MS CORRECT, ESPECIALLY THE LAST 401 UORDS. THE 
FIRST WORD OF THE SECTOR( IN WHICH THE 6001TH WORD) IS WRITTEN 
IS THE ONLY NON-ZERO WORD IN THAT SECTOR. THE REST 377 WORDS APE 
ALL ZEROS, IF THE WRITING WAS DONE CORRECTLY. 

• ;GET DRIVE • 

-.DISK AODRLSS FROfl WHERE READ IS DONE 



IS: 







nncu^u 

UUD~J~ 


006140 


012703 


001000 


006144 


004737 


006424 


006150 


104101 




006152 


004737 


020112 


006156 


104102 




006160 


012704 


032514 


006164 


010402 




006166 


004737 


020150 


006172 


104104 




006174 


012705 


177764 


006200 


022712 


044444 


006204 


001410 




006206 


012737 


044444 001164 


006214 


004737 


005720 


006220 


104100 





2S: 



005205 
001421 
005722 
020227 
001361 
005712 
001407 
005037 
004737 
104100 



03351b 



001164 
005720 



3S: 
4J: 



SCOPE 

NOV QDRV.Rl 
ADD 113, Rl 
flOV IIS.SLPERR 
CON. RESET 
DRV. RESET 
CON. RESET 

JSR PC.CLEANBUF 



NOV 

JSR 
ERROR 

JSR 

ERROR 

NOV 

NOV 

JSR 

ERROR 

NOV 

cnp 

BEQ 
NOV 
JSP 
ERROR 



INC 
BEG 
TST 
CHP 
BNE 
TST 

BEQ 
CLR 
JSR 
ERROR 



•1000, R3 

PC.DOREAD 
lOi 

PC.CHKCS 
10^ 

•DBUF,R4 
R4,R2 
PC.CHKBA 
lOA 

•-14.R5 

•444R4,(R2) 

3S 

•44444, JREGl 

PC.ERlftFl 

106 



R5 
6S 

(R2) + 

R2,lDBUF+1002 
2S 

(R2] 
5S 

SREGl 

PC.ERINFl 

106 



CLEAN UP THE BUFFER INTO WHICH 

READ WILL BE DONE 

SET UP RKDA 

SECTOR 11. SURFACE 0 

WORD COUNT 

GO READ 1000 WORDS (2 SECS) 
INTERRUPT DID NOT OCCUR AFTER 
COMPLETION OF READ 
CHECK IF EROR BIT IN RKCS 5E' 
EROR (RKCS) SET ON DOING READ 
STARTING BA OF DATA BUFER 

RKBA INCREMENTED CORRECTLY' 
RKBA DID NOT INCREMENT CORRECTLY 

DATA WORD OK? 

NO. GET EXPCTD DATA WORD 

GEt. OTHER ERROR INFO 

DATA ERROR. A WRITE OF 6001 

WORDS (12 SECS ♦ 1 WORD) MS DONE 

IN A PREVIOUS TEST. THE LAST TWO 

SECTORS (LAST 401 WORDS) WERE READ 

BACK. THIS ERROR INDICATES THAT 

SEC •ll (LAST BUT ONE SECTOR) GAVE 

BAD DATA WORDS 

REPORT 12 ERORS AT MOST 

;INCRE'€NT POINTER TO BA 
; CHECKED 401 WORDS' 

: CHECK THAT THE REMAINING 377 
WORDS OF THE LAST SECTOR (SEC •O) 
•WERE READ BACK AS O'S 

DATA ERROR. IF WRITE MS DONE CORRECTLY 
IN THE PREVIOUS TEST. THE LAST SECTOR 
OF THE DATA BLOCK 112 SECS ♦ 1 WORD) 
SHOULD CONTAIN ONLY 1 (FIRST) WORD 
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30QC 

20S8 

5lOO 
2101 0Ob2(>Q 



)1HC 
005722 



2:0H 

2105 VQb2?Q 

= 106 O.Tb27H 

213" 0L'b27b 

= i:S 00r,3Q2 



032701 
001070 
062701 
000711 



03H51H 

000020 
000220 



5$: 



HQ4 

IfiCUl 30a0Hb) Ob-JUN-77 14:55 PhGE % 

READ i CHECK THfiT bOOi WORD WRITE WfiS DONE CORRCTLY 

THE SOtlE OF 377 WORDS 
WERE NOT CORRECT 
REPORT 12 ERORS AT MOST 

; INCREMENT POINTER 
; CHECKED ALL WORDS'' 
;N0 

DONE CHECKING FOR SURFACE P 
YES 

SO SET UP FOR SURFACE i 
SO BACK & READ SuRFACE 1 



INC R5 

BEQ bS 

T5T (R2)+ 

CMP R2.IDBUF*2000 

BNE HJ 

BIT •20.R1 

BNE TST^ 

ADD 120, Rl 

BR IS 



•C-U-DrRKrti. RKU-RK05 PERFORMANCE EXERCISER 
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104 
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READ & CHECK THAT bOOl UORD URITE UAS DONE CORRCTLf 



210S 

ifi? 

2114 
211E 
211& 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
212M 
212S 
2126 
2127 
2126 
212S 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2i3S 
2140 
2141 
2142 



00b304 
00b312 
OObSlb 
008322 
00b32b 
0Gb33H 
0Qb3H2 
006344 



006360 
006364 
006372 
006376 

006400 
006404 

006406 
006412 

006414 
006416 
006422 



012777 
010177 
010377 
005477 
012777 
012777 
0050% 
012746 



005037 
012737 
005237 
001375 

005237 
001372 

004737 
000207 

022626 
062716 
000207 



004002 
172712 
172702 
172676 
032514 
006414 

006352 

000101 
001466 
177760 
001466 



001470 



022032 



0000C2 



172710 



172672 
172676 



172642 
001470 



OOURITE 



(RKUC), 'DBUF* CONTAINS THE DATA TO BE URITTE^. NOTE IBA BIT IS SET. 
.URITE IS DONE IN INTERRUPT NODE. IF THE INTERRUPT DOES NOT OCCUR WITHIN 



CERTAJN^T 
Hfe'"ERJoR 



DOURITE: MOV 
DOXFER: NOV 
NOV 
NEC 
NOV 
NOV 
CLR 
NOV 
RTI 

IS: BIS 

CLR 
NOV 

25: INC 
BNE 

INC 
BNE 

JSR 
RTS 

35: CMP 
ADD 
RTS 




, RETURN 
ftTERRUPT 



IS NADE TO THE 
OCCURS, RETURN 



RRQR NES5A&5 FOLLOWING THE 'JSP' 
iDDRESS IS ADJUSTED TO SKIP OVER 



t4002,SRKCS 
R1,9RK0A 
R3,aRKUC 
SR^UC 

•OBUF.SRKBA 
l3S.3ftKVEC 

-(S^) 
•15, -(SP) 

•lOl.aRKCS 
CICNt 

•-20.CICNT1 

CICNT 

.-4 

CICNTl 
25 

PC,GT4RG 
PC 

(SP)*.(SP)* 
12. (SP) 
PC 



; URITE. IBA 

; ADDRESS THE DRIVE 

IXFER THIS • OF WORDS 

;USE THIS BUS ADDRESS 
SET UP INTERRUPT VECTOR 
■NEW PSb 

I SET NEW PC TO STACK ********** 
;SET IDE. GO (URITE, ISA/ READ 

:UAIT FOR INTERRUPT 



:TIHED OUT, INTERRUPT DID NOT OCCJP 
; RETURN TO THE EROR HEASGE 

RESTORE STACK POINTER 
.ADJUST RETURN ADDRESS TO SKIP CVEB 
:EROR HESAGE ON RE'^UPN 



3feiAa°pfr- siy^'s ''"W''" 



J04 
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RESd & CHECK THAT WJOl WORD WRITE W«S DOfC CORRCTLY 



glM3 
21HM 

aiM5 
21% 
2147 
2148 
214S 
2150 
2151 
2152 
2153 
2154 
2155 
2158 
2157 
2158 
215«3 
21&0 
21S1 
21b2 
21Ei3 
2164 
21b5 
21E>6 
21S7 
21b8 



006424 012777 
006432 000727 



006434 
0064H0 
006H4M 
006450 



006452 
00645H 



012702 
012705 
012725 
005202 



001374 
000207 



177000 
032514 
022222 



COUNT (RKHC). READ WILL BE DONE INTO DfiTfl BUFFER AT 'DflUF'. 

g^g?R^s«r^: wfi !8B?•TJ^t"^EisrN^^g?^?o[:E»HE"^^^ig• 

CftLL IF THE I^ITERRUPT OCCURS «S EXPECTED, RETURN ADDRESS IS ADJUSTED 
TO SKIP OVER THE ERROR PIESSfiGE. 



000004 172570 DOREfiD: HOV 



i4,aRKCS 
DOXFER 



;RERO 



•CLEANS OUT THE DATA BUFFER (ALL WORDS WRITTEN TO 177777) INTC WHICH THE 
•READ FROM THE DISK WILL BE DONE. DATA BUFFER STARTS AT 'DBUF'AND IS 
llOOO (OCTAL) WORDS LONG. 



CLEflNBUF:l10V 

nov 

li: MOV 
INC 



BNE 

RTS 



•-1000.R2 
•DBUF.ftS 
•2222S,(R5)* 
R2 



IS 

PC 



;SET COUNT 

I INITIALIZE BA 

;DONE ALL WORDS' 

BUFFER STARTING AT (PHYSICAL; BLS 
I ADDRESS 177000 (177000-200776, 

;YES RETURN 



«-ll-D2RKHG, RKll-RKOS PERFORHflNCE EXERCISER 
OZRKHG.PH 25-flPR-77 10:18 T5 



k04 

flftCYll 3D(10Mb) Ob-JUN-77 14:55 PftGE 49 
CHECK DflTfl TRANSFER AROUND 32K BOUNDARY 



11^ 

2171 
Si 72 
2173 
217M 
2175 

2178 
217S 
2180 
2181 
2182 
2183 
218S 
2185 
218b 
2187 
2188 

|{^ 

2191 
21S2 
2193 
219H 
2195 
21% 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
220M 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
221b 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 



00b45b 
00b4b0 
00b4bb 
00t>470 
0Gb474 
00b502 
006510 



000004 
023727 
103002 
000137 
012737 
012737 
012737 



017772 002000 



007040 
OOlbOO 
002000 
000001 



172352 
172354 
177572 



OObSlb 


012737 


006524 


001110 


00b524 


10441b 






00652b 


104420 






006530 


012700 


000001 




006534 


012701 


137000 




006540 


010021 






006542 


005200 






006544 


020027 


001001 




006550 


001373 






006552 


013777 


001502 


172450 


006560 


012777 


177000 


17243b 


006566 


012777 


177000 


172432 


006574 


012777 


000003 


172420 


006602 


104417 






006604 


004737 


020112 




006610 


104102 






00bbl2 


004737 


020204 





4TEST 5 CHECK DATA TRANSFER AROUND 32K BOUNDARY 

;»THIS TEST PERF0RME5 A URITE OF 2 SECTORS ON THE DISK FROM IIEflORY 

» 177000 TO 200776 I.E. (32K-256) TO (32K*255) 

»INTO IT. A CHECK IS MADE TO SEE IF THE CORRECT DATA UAS RECIEVED. 
,«ONLY 12 DATA ERRORS ARE REPORTED. 

t§T5: SCOPE ^ ^ MEMORY' 

YES 

IF NOT, DONT DO THIS TEST 
MAP 28-32K ^HRU PAR 5 
MAP 32-36K THRU PAR b 
TURN ON NEnORY nANAGEMENT 



IS 



CMP 

BHIS 

JHP 

MOV 

MOV 

MOV 



iLSTBK, 12000 
IS 



ii.at^RO 



CTORS 



B?J8.^TEI"T^WiS-D0«- - 

BUS ADDRESS (PHYSICAL) 177000 TO 200776, (32K-256) TO (32*256) 

:DATA IN THE BUFFER IS A COUNT PATTERN STARTING FROM 1 FOR THE FIPS^ 
WORD TO (000 FOR THE LAST UORO. 

PHYSICAL BUFFER ADDRESS: 177000 TO ,200776 (32K:25b TO 32K+25d) 
MOV •2S,$LPERR ;LUP TO 2$ ON EROR (SU 9) 

2$: CON. RESET 
DRV. RESET 



3S: 



MOV 

MOV 
MOV 
INC 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 

CON.RDY 

JSR 
ERROR 



JSR 



tl,RO 

•137000, Rl 

R0,(R1)* 

RO 

RO, 11001 
3$ 

OORV.aRKDA 
•-1060.3RKUC 
•177006.3RKBA 
t3,SRKCS 

PC.CHKCS 
lOS 



PC.CHKMEX 



006616 104106 



ERROR 10b 



INITIALIZE DATA PATTERN TO BE 
WRITTEN 

BA TO START PHYSICAL ADDRESS=177Q00 
URITE COUNT PATTERN (1-1000) 
INTO DATA BUFFER (PHYS ADORES 
177000 TO 20077b) 

SUR 0. SEC 0. CYL 0 

uoRO Count secs 

BUS address. 
URITE. GO 

UAIT f-OR CNTROL RDY 

ANY EROR IN RKCS' 
•ERR* SET IN RKCS, ON DOING A 
URITE OF SECTORS (O.D FROM 
(PHYSICAL) BUS ADDRESSS 177000 
(i;7000 TO 20077b) 

CHECK THAT RKBA OVERFLOUED INTO 

EXTENDED MEM. BIT (0) OF RKCS .BIT 41 

EX MEM BIT 0 SET' 

GET RKCS,ER.DS.DA 

MEX BITS INdORftECT. BIT 4 OF RKCS 

(MEX BIT 0) SHOULD HAVE SET 



1C-il-02RKHG. RKii-RKOS PERFORflflNCE EXERCISER 
DZRKHG.Pll 25-fiPR-77 10:18 T5 



2227 
22?8 
22^ 
2230 
2231 

2233 
223M 
223S 

11^ 

2238 
223^ 
2240 
22M1 
2242 
2243 
2244 
2245 
224b 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2258 
2257 
2258 
2259 
22£>0 



2263 
22b4 

iibl 

2267 
2268 
22b'3 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 



006620 
006624 
006630 
006634 



006636 
QQ6642 
0066% 
006652 



006654 
006660 



006662 
006670 
006672 

006674 
006700 
006702 
006706 



012703 OOIDOD 

012704 177000 
004737 020150 
104104 



013702 001502 

062702 0QC002 

004737 020126 
104103 



004737 020230 
104105 



012737 006670 001 HP 
104416 41: 
104420 



012701 137000 
005021 

020127 141000 
001374 



5S: 



QQ6710 


013777 


001502 


006716 


012777 


177000 


006724 


012777 


177000 


006732 


012777 


000005 


006740 


104417 




006742 


004737 


020112 


006746 


104102 





L04 
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NOV 
NOV 
JSR 
ERROR 



nov 

n 

ERROR 



JSR 
ERROR 



•1000.R3 
•177060.R4 
PC,CHK8A 
104 



QDRV.R2 
12, R^ 

PC!CHK0A 
10^ 



PC.CHKUC 
105 



NOV t4l,JLPERR 

CON. RESET 
DRV. RESET 



MOV 
CLR 
CflP 
ONE 



•137000, Rl 

(Rl) + 

Rl, 1141000 
51 



QDRV.3RK0A 
i-1060." " 



MOV 

MOV i-100Q.3RKWC 

MOV 1177000. aRKBA 

MOV iS.flRKCS 



CON. ROY 

JSR 
ERROR 



PC.CHKCS 

loa 



p IMS rrk??^8R§Mus 



fiFT{ 



ADDfiSS v^HYSICAL) STARTING AT 177000 
WORD COUNT 

IS?!'!? I!&.W«NTE0 CO«C-LV 

:rkba did not increment correctly 
After i«ite if 2 sectors from a data 
buffer starting at (physical) bus 

ADDRESS (177000-200776) 
GET EgKT|D 

?HlcK''¥r&<6A INCREMENTED CORRECTLY 
RKDA INCREMENTED URONaY AFTER 

ADDRESS (PHYSICAL) 177000. 

CHECK IF RKHC OVERFLOWED CORRECTLf 
RKWC DID NOT OVERFLOW TO 0 ON 
DOING A WRITE OF 2 SECTORS FROM 
BA = 177000 

;NOW. READ IS DONE^OF THE DATA 
THAt WAS WRITTEN TO SEE IF IT 
I CAN BE READ CORRECTLY 

;LUP TO 41 ON EROR (SW 9) 



: CLEAR THE 1000-WORD DATA 
BUFFER (PA 177000 TO 200776) 
•ALL DONE' 

; WRITTEN PREVIOUSLY 

ADDRESS THE DRIVE CYL 0. SEC 0. D 

READ 2 SECTORS 

INTO THIS BUS ADDRESS 

READ, GO 

;WAIT FOR CNTROL ROY 

ANY ERROR IN RKCS' 
ERROR BIT SET IN RKCS ON DOING 
A READ OF 2 SECTORS (0.1). CYL 0, 
SUR 0^ INTO DATA BUFFEft StARTING 
AT BU§ ADDRESS 1770000. NOTE AFTER 
1777776, RKBA WILL OVERFLOW (0) 
INTO BITS (BIT 4) OF RKCS. 
IF THE ENTIRE TRANSFER (1000 WORD) 
WAS DONE RKBA WILL CONTAIN 1000 
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2283 006750 012705 1777b" 
006754 012702 137000 

012701 000001 



020112 
414 

14e 
005205 




n 

22S2 
22*33 
22<)4 

22% 
2297 
2298 
229S 
230C 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 



007002 
007006 



007010 
007014 



007020 
00702M 
007026 
007032 



010137 



011237 
104107 



104421 
004737 



062702 
0C52Q1 
022701 
001354 



001162 
001164 



002214 
017774 



000002 
001001 



bf: 



7$: 



007034 005037 177572 



8S: 



<3S: 
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MOV 
NOV 

MOV 

criP 

BEQ 

INC 

NOV 

NOV 
ERROR 



TYPMSG 
JSR 



ADD 
INC 
CMP 
BNE 



CLR 



•-14.R5 
•137600, R2 

II. Rl 

Rl, (R2) 

n 

R5 

Rl.SREGO 

(R2),SREG1 
107 



.nSGi3 
^C.TYPDBO 



•2,R2 

Rl 

•1001. Rl 
7$ 



avsRo 



AND BIT 4 OF RKC5 (NEX) WILL BE SET. 
REPORT ONLY 12 ERRORS. 

Vp^lVMf^'' ^ 

INITIALIZE DATA PATTERN 

CORRECT DATA UORO RECVO^ 

REPORT THIS ERROR' 

COUNT ERORS 

GET EXPCTEO DATA UORO 

GET DATA UORO RECVD 

DATA CONPARISON ERROR ON DOING A 

READ OF 2 SECTORS (0.1. CYL 0. SURFACE D 

INTO DATA BUFFER (PH^SiCAL A06RESS 

177000 TO 200776) 

TYPE 'PHYSICAL BUS ADDRESS' 

TYPE THE 6 DIGIT PHYSICAL BUS ADDRESS 

UHERE THE DATA ERROR XCURREC. 

ItCRENENT POINTER TO BA 

CHECKED THE ENTIRE BUFFER' 



;*tOFF 

;TURN OFF NENORY NANAGENENT 
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2315 










231b 










2317 










2318 










2319 










2320 










2321 










2322 


007040 


000004 






2323 










232S 


007042 


023727 


017772 


001740 


2325 


007050 


103002 






232b 


007052 


000137 


007374 




2327 


00705b 


012737 


OOlbOO 


172352 


2328 


0070b4 


012737 


000001 


177572 


2329 










2330 










2331 










2332 










2333 


007072 


012737 


007100 


001110 


2334 


007100 


10441b 






2335 


007102 


104420 






233b 


007104 


012700 


000001 




2337 


007110 


012701 


120000 




2338 


007114 


010021 






2339 


00711b 


005200 






2340 


007120 


020027 


010001 




2341 


007124 


001373 






2342 










2343 


00712b 


013777 


001502 


172074 


2344 


007134 


012777 


170000 


172052 


2345 


007142 


012777 


IbOOOO 


17205b 


234b 


007150 


012777 


000003 


172044 


2347 










2348 


00715b 


104417 






2349 










2350 


0071b0 


004737 


020112 




2351 


0071b4 


104102 






2352 










2353 










2354 










2355 










235b 










2357 










2358 










2359 


0071bb 


004737 


020204 




23b0 










23bl 


007172 


10410b 






23b2 










23b3 










23b4 










23b5 


007174 


012703 


010000 




23bb 


007200 


012704 


IbOOOO 




23b7 


007204 


004737 


020150 




23b8 


007210 


104104 







4TEST b CHECK DATA TRANSFER FRON 28K TO 32K 

:»THIS TEST DOES A URITE OF 4K HQROS FROM A BUFFER LOCATED AT 28K 
-"^N THE DATA IS READ BACK INTO THE SAME BUFFERC 



;»THE 



IS READ BACK INTO THE SAME BUFFER (2SK-32K) AND IS 

NOTE THAT THE BUFFER IS FILLED 



iCHECKED TO SEE IF IT IS CORRECT. 1 
;«UITH ALL rS BEFORE DOING THE READ 



:»THE WRITE IS DONE STARTING At CYLINDER 0, SECTOR 0, SURFACE 0. 
t§Tb: SCOPE 



IS: 



CMP ILSTBK, 11740 

BHIS IS 

JMP TST7 

MOV llbOO.atKIPARS 

MOV ll.aiSRO 



32K OR MORE OF MEMORY' 
YES 

IF NOT, DONT DO THIS TEST 
MAP 28-32K THRU PAR 5 
TURN ON MEM MANAGEMENT 



: URITE A COUNT PATTERN (1-10000) INTO DATA BUFFER (PHYSICAL ADDRESS 

I IbOOOO- 17777b). THIS DATA BUFFER WILL BE USED FOR WRITING Oh THE DISK. 



MOV •2S,$LPERR 
2S: CON. RESET 

DRV. RESET 

MOV li.RQ 

MOV 11^0000, Rl 
3S: MOV R0,(R1)^ 

INC RO 

CMP RO, 110001 

BNE 3S 



MOV 
MOV 
MOV 
MOV 

CON.RDY 

JSR 
ERROR 



QDRV.SRKDA 

10600, 3RKUC 
•IbOOOOlSRKBA 
•3,aRKCS 



PC.CHKCS 
10^ 



JSR 
ERROR 



MOV 
MOV 
JSR 
ERROR 



PC.CHKMEX 
10b 



II 0000. R3 
tlb000A.R4 
PC.CHKBA 
10^ 



;LUP TO 2$ ON EROR 



INITIALIZE DATA PATTERN TO BE WRITTEN 
INITIALIZE BA (PA=lb0000) 28K 
WRITE COUNT PATTERNS (1-10000) 
INTO DATA BUFFER (PA IbOOOO TO 
I7777fi, 28K-32K) 



WRITE ON SEC 0, CYL 0, SURl 
4K WORDS 

FROM THIS BUS ADDRESS 
WRITE. GO 

;WAIT FOR CONTROL READY 

ANY ERROR IN RKCS' 

'ERR' BIT SET IN RKCS ON DOING 

A WRITE OF 4K WORDS FROM IbOOOO 

(28K-32K). DISK WRITE BEGAN ON 

SEC 0, CYL 0. SUR 0. IF ALL 4K 

WORDS WERE WRITTEN RKBA SHOULD OVERFLOW 

AND CONTAIN 0. BIT 4 OF RKCS 

(MEX BIT) SHOULD BE 1 

CHECK IF RKBA OVERFLOWED AND MEX 

BITS (4) IN RKCS WAS SET. 

:MEX BIT 4 NOT SET AFTER OVERLFOW OF 

AkBA. write OF 4K WORDS (2BK-32K; WAS DONE. 

RETURN HERE IF NO ERROR 
WORD COUNT 

STARTING BUS ADDRESS 

CHECK IF RKBA INCREMENTED CORRECTLY 

RKBA DID NOT OVERFLOW TO AFTER A WRITE IF 4K 
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CO' u 






020230 


CJ' i 


MJ' CIC 


UU~' O' 


CJf c 


lYITPIL 
UU/ciO 


1 nu 1 DC 




PIT! 
















2375 








2378 








CO' ' 


uu' ecu 


n 1 P7'?7 

UiC' J' 


wUr ceo 


CO' D 


niTTPPt. 

UU'^CCo 


iu^~io 




CJ' 3 


UU/CJU 






2380 
2381 


007232 


012701 


120000 


cooc 


UU' CJO 


UUjUCi 




COOJ 


rvTTPMn 

UU' C »w 


UCC' Ui 


140000 


C Jljl 


UUr CiT 


UUi J' 1 




CJga 

C«jOD 


uu< c •» 


n I 1777 

UXJr ' ' 


UUi JUC 


CJO' 




niP777 

UiCf r ' 


170000 


CJDD 


UUf CDC 


nt P7T7 
UiCr f t 


iDUUUU 


COej 










nn7P7n 

mj' c ' w 


UXC ' ' 






UU« CD 


1D44I7 














lAJ' JUU 


UUi' O' 


□201 12 

UCUX xc 










cJm 








CdW 








CJ J' 




UAC uo 


1777feM 


CJ jD 


UU' OAC 


nt ?7np 

uxc uc 


1200tM 


C J 








punn 


UU* JiQ 


UXCf Ul 


QOOODl 


P4ni 

C^Ui 








CiUC 


UU' JCC 


n?nii? 

U&Ui AC 




CtUJ 


UU' JC~ 


□01413 






UU' OCD 


□10137 

UXUXw' 


□01162 


C >Uo 




□1 1P37 


001164 

UU A AU > 


purVi 

C>Uw 


UU' JJD 






pun? 








puna 
c >uo 








P*40Q 

C»w* 








c ■ xu 


□07340 

UU' w iU 




002214 

UUWW A ■ 


PMI I 

C i 






017774 


PHI? 
c ■ xc 








2*413 


UU' i9wU 






C li 1 


0n73^P 

UU' J3C 






C 1 i J 








C ■ ID 


UU' 03 f 




000002 


2417 


007360 


0(K201 




2418 


007362 


022701 


001000 


2419 


007366 


001355 




242D 








2421 


00737Q 


005037 


177572 



4S: 



5S: 



6S: 



7J: 



8S: 



JSR 
ERROR 



PC.CHKUC 
1Q§ 



nOV I4S,JLPERR 
CON. RESET 
DRV. RESET 

nOV 1120000. Rl 

CLR (Rl)+ 

CHP 1140000, Rl 

BNE 5S 

NOV QDRV.aRKOA 
NOV l-lO&Ob.aRKUC 
NOV 1160000, aRKBA 

nov i5,aRKCS 

CON. ROY 



JSR 
ERROR 



NOV 
MOV 

NOV 

CHP 
BEO 
NOV 
NOV 
ERROR 



TYPNSC 
JSR 

INC 
BEQ 

ADD 
INC 
CMP 
BNE 

CLR 



PC.CHKCS 
102 



•-14. R5 
f 120600. R2 

II, Rl 

R1,(R2) 
71 

Rl.SREGO 

(Rd).SREGl 

107 



.MSG13 
^CTYPDBO 

R5 
8S 

12, R2 

Rl 

tlOOO.Rl 
6S 

SISRO 



: WORDS (160000 TO 177776. 

CHECK RKHC OVERFLOWED CORREC^u< 
RKWC DID NOT OVEFLOW "0 0 
AFTER A WRITE OF 4K WORD ( 160000 
TO 177776) 



; RETURN ADDRESS FOR LUPING 



: CLEAR THE DATA BUFFER BEFORE 
iOOING A READ INTO IT 



;REAO FROM SEC 0, SUR 0. CYL 0 
;4K WORDS 

;INTO THIS BUS ADDRESS 
;REAO. GO 

;WflIT FOR CNTROL ROY 

ANY ERROR IN RKCS' 

ERROR BIT SET IN RKCS ON DOING 

A READ OF 4K WORDS INTO MEMORY 

ERRORS AT MOST 
STARTING ADDRESS OF BUFFER 
(PA=160000) 

INITIALIZE DATA PATTERN 

; CORRECT DATA UORD^ 

GET EXPCTO DATA WORD 

GET DATA WORD RECVD 

DATA ERROR ON DOING A READ OF 

4K WORDS STARTING FROM SEC 0. 

CYL 0. SUR 0 INTO fCMORY {I66OQO- 

17777H) 

TYPE 'PHYSICAL BUS ADDRESS" 

TYPE OUT THE PHYSICAL BUS ADDRESS 

WHERE DATA 

ERROR OCCURRED. R2 CONTAINS 
THE VIRTUAL ADDRESS 

POINTER TO NEXT BA 
NEXT PATTERN 
ALL DONE' 
NO 

TURN OFF MEM MANAGEMENT 



•C-ll-OZRKHG. 
OZRKHG.Pll 
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2422 






2S23 






2M2M 






2S2S 






2S2S 






2427 






2S28 






2S2S 






2S30 






2S31 






2*432 






2*433 






cS3H 






24 35 






2S3b 






2H37 






2438 






243S 






2440 






2441 


UU/JTM 


000004 


2442 


□07375 


005737 


2443 


□07^02 


100004 


2444 






2445 


□07404 


023727 


11 ir 

244b 


□07412 




c447 






2448 


□07414 


n f ^^n^ 
ulJTUJ 


2449 


007420 


lt>2703 


2450 


UU/ScH 


000241 


2451 


0D74a 


□06003 


2452 






2453 


0D74JD 


□ObOOl 


2454 


007432 


□10346 


2455 


□U74?1 


UUbCnb 


c45o 


0D743O 


Qlc74b 


2457 


007442 


Dln737 


2458 


UU744b 


□0&7eb 


245'3 


007^*50 


□01401 


24bO 


007452 


□05201 


cHfal 








UU/4b4 


□bcbUl 


24b3 






if LI 

24b4 


□OTHSo 


□ObuUc 


2465 


□07460 


1627U1 


24bo 


□07464 


10QH03 


24b7 


□07466 


□bc70d 


24b8 


007472 


□□□772 


c4b«j 


LBJ/47^ 


□bc7ul 


c47TJ 


007500 


050102 


c47i 


nnycno 
UuTbOc 


nnnunu 


c47g 










UlC'UJ 


2474 


007510 


012702 


2475 






247fc 






2H77 







::»«»ttf»»»»»»#»»»t««ttt«««tf ##»»#»»»»»»»»»#»»»#»»****#»«••♦»# 

4TEST 7 PERFORM THE LPRGEST POSSIBLE DflfA TRANSFER 

:THI5 TEST PERFORMS THE LARGEST DATA TRANSFER POSSIBLE 
luiTHIN AVAILABLE MEIIORY. 

;1) IF KTll IS PRESENT A URITE OF l&K WORDS IS DONE ON 
I THE DISK (PROVIDED 29( OR MORE IS PRESENT). 

;2) IF KTll IS NOT PRESENT THEN ALL BUT TOP 1.5K OF MEMORY UI^L BE 
•FOR URITING (RKDP nONlTOR). 

;ALL DATA TRANSFERS ARE DONE STARTING AT BA 'PGEND*. 
ALL WRITES ARE DOtC BEGINNING AT SECTOR 0, CYLINDER 2. 
; SURFACE 0. 

i^-TER DOING THE 'l^ITE' A 'IWITE CHECK' IS DONE 
TO SEE IF THE WRITE WAS DONE CORRECTLY. ANY l«ITE 
CHECK ERROR IS REPORTED. 



017S24 

017772 001540 



002054 
032514 



000400 
025212 



000014 
00002C 
000014 



040000 
000124 



t§T7: SCOPE 

TST SKTU 

BPL It 

CflP SLSTBK,I1S40 

BGE XFRl&K 

IS: NOV nAXBA.R3 

SUB lPGErCI,R3 

CLC 

ROR R3 

CLR Rl 

NOV R3.-(SP) 

CLR -(§P) 

NOV 1400, -(SP) 

JSR PC.aiSOIV 

TST (S^)* 

BEQ 2S 

INC Rl 

2S: ADD (SP)*.Rl 

CLR R2 

35: SUB 114. Rl 

BNI 4S 

ADO 120. R2 

BR 3S 

4S! ADO •14.Ri 

BIS Rl.ft2 

BR XFft 

XFRlbK: NOV 140000. R3 

NOV 1124, RS 



f€HORY HANAGEHENT PRESENT' 

NO 

YES 

28K OR nORE^ 
YES 

FIGURE OUT THE NAXIMUM 
XFER THAT CAN BE DOt€ 

FROH 'PGEND' TO THE 
'HAXBA' 

PUT DIVIDEND ON STACK (LOJ 

(HIGH PART) 

DIVISOR 

GO TO DIVIDE ROUTINE 

POP OFF REIIAirCER FRON STACK 

GET I OF SECTORS REQUIRED TO 
00 WRITE OF I OF WORDS 
(CONTAINED IN RO). Rl CONTAINS 
• OF SECTORS 
FORM THE EXPECTED DISK 
ADDRESS - AFTER THE WRITE 
IS DONE. 



;R2 CONTAINS EXPCTO RKDA 
; AFTER WRITE IS DONE 

;! OF WORDS = IbK _ 
RKDA SHOULD INCREMENT TC 
THIS f^TER A TRANSFER OF 16k 
: WORDS STARTING AT DISK 
: ADDRESS = 0 (CYL 2.SUR I. SEC 
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2M78 

2M81 

3S83 
3S8S 
2M9S 
aM86 
2M87 

2M8<3 

2sqi 

2493 
2494 
2495 
24% 
24«37 
2498 
2499 
2S00 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 



007514 

007520 

007526 
007530 
007532 

007540 
007544 



053702 
012737 

104416 
104420 
013777 

010377 
005477 



007SS0 
007556 



012777 
012777 



007564 10441; 



007566 
007572 



007574 
007600 



007602 
007606 



004737 
104102 



004737 
104103 



012704 
004737 



007612 104104 



007614 
007620 



004737 
104105 



001502 
007526 



032514 
000003 



020112 



020126 



032514 
020150 



020230 



001110 



XFR: 



If: 



001502 171470 

171460 
171454 



171450 
171436 



007622 


012737 


007630 


001110 




007630 


104416 






2S: 


007632 


104420 








007634 


013777 


001502 


171366 


3S: 


007642 


010377 


171356 






0076% 


005477 


171352 






007652 


012777 


032514 


171346 




007660 


012777 


000407 


171334 


4J: 


007666 


104417 








007670 


004737 


020112 







UUb 
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PERFORM THE LARGEST POSSIBLE DflTfl "^'^^^NSFER 



BIS 

nov 



0DRV,R2 
IIS.SLPERR 



CON. RESET 
DRV. RESET 

nOV ODRV.SRKDR 



nov 

NEG 



R3,3RKUC 
aRKUC 



flOV 

nov 

CON. ROY 



IPGENO.SRKBA 
l3,8RKiS 



JSR PC.CHKCS 
ERROR lOS 



JSR PC.CHKDfi 
ERROR 102 



NOV •PGEND.R4 
JSR PC,CHKBP 

ERROR 104 



JSR PC.CHKUC 
ERROR 105 



tlOV •2I,ILPERR 
CON. RESET 
DRV. RESET 

MOV QDRV.aRKDfi 
MOV R3,aAKUC 
NEG aRKUC 
nov lPGEND,aRKBfl 

nov •407,aRKCS 

CON.RDY 

JSR PC.CHKCS 



ROD THE DRIVE | TO 
EXPCTD RKDA RFTER XFEP 
LUP B«K TO 'IS' ON ERROR 
(SU 9) 



RDDRESS THE DRIVE, CYL O.SUP 3. 
SEC 0 

UORD COUNT (IF MORE THAN 
28K IS AVAILRBLE R TRANSFER 
OF 20K UILL BE OOfC. IF 
LESS THAN 28K. THE 
LARGEST TRANSFER UITHIN THE 
AVAILABLE nENORY MILL 
BE OOrC. IN BOTH 
CASES. DATA TRANSFER 
MILL dC DONE STARTING 
AT 'PGEND' 

START URITE FROM HERE 
URITE, GO 

UAIT FOR CONTROL READY 

CHCK RKCS FOR ERRORS 
ERROR BIT SET IN RKCS ON 
DOING A LARGE 'URITE' 

CHECK IF RKDA INCREMENTED CORRECTLY 
RKDA DID NOT INCREMENT 
CORRECTLY 



: CHECK THAT RKBA INCREMENTED 
; CORRECTLY' 

;RK8A DID NOT INCREMENT 
; CORRECTLY 

: CHECK THAT RKUC OVERFLOUED 
RKMC DID NOT OVERFLOW TO 
•ZERO AFTER A WRITE 

;LUP BAK TO '2$' ON EROR iSU 9) 

;ADDRESS THE DRIVE, CYL O.SEC 0.5-R 

STARTING BA 
URITE CHECK, SSE, GC 
WAIT FOR CONTROL RDY 
ANY ERROR IN RKCS 



10-Ii-02RKHG, RK11-RK05 PERFORMANCE EXERCISER 
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T7 



2S3? 



2540 
2541 
2542 
2543 
2544 
2545 
2S4b 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 



2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 



007674 


10H102 






007676 
007704 
007706 
CS57714 


032777 
001030 

SoiMOb 


040000 
000001 


171316 
n304 


007716 
007722 
007730 


004737 
017737 
104110 


022032 
171300 


001166 


007732 
M7736 


005777 
001413 


171266 




007740 
007744 
007750 
007752 


017705 
042705 
006305 
160577 


171260 
177760 

171250 




007756 


042777 


000017 


1 f 1 sun 


007764 


000735 






007766 


3Q0137 


005366 





5S: 



6S: 



flACYll 30(1046) 06-JUN-77 14:55 PAGE 5b 
PERFORM THE LARGEST POSSIBLE DATA TRANSFER 

ERROR 102 



BIT 
BNE 
BIT 
BEQ 

JSR 
MOV 
ERROR 



TST 
BEQ 

riov 

BIG 
ASL 
SUB 

BIG 

BR 



•BIT14,aRKCS 
75 

•UCE,8RKER 
6S 

PC,GT4RG 

aRi!:BA.SREG2 

110 



^RKUC 

SRKUC.R5 
•177760, R5 
RS 

R5.9RKBA 

•l7,aRKUC 

4$ 



;SKIP CHECKING FOR UCE HE SET 

; WRITE CHECK ERROR' 
;N0 

;GET RKCS.ER.OS.OA 

•URITE CHECK ERROR. RKDA GIVES THE DISK ADDRESS 
•WHERE UCE OCCUrSd. (NOTE THE SECTOR IN „ 
:ERR0R IS OBTAINED BY BACKING OFF 1 SECTOR). 
•NOTE THAT THE DATA BUFFER UHICH UAS URFE 
•CHECKED IS NOT ON A SECTOR BOUNDARY 
'•(□KE 256 512 WORD ETC.) ^ BUT IS SOME 
ISECTORSS* A FRACTION (LIK^ 300 WORDS E'C. , 

:UAS THE ENTIRE DATA BUFFER 
•WRITE CHECKED' 

;FORn THE RKBA AND RKWC 

:T0 BE USED FOR DOING 
URITE-CHECK IF THE REST 
•OF THE DATA BUFFER 

:G0 DO URT-CHK FOR 
;rEST OF THE BUFFER 



-.GO CHECK THE REST OF THE DRIVES. 
7S: JMP NXTDRV 



X-ll-DZRKHG. 
DZRKHG.PU 



25b7 
25&8 

2S70 

2S71 

2S72 

2573 

2S7M 

2S75 

2S7b 

2S77 

2578 

257^ 

2S80 

2581 

2582 

2583 

2S8M 

2585 

258E> 

2587 

2588 

258S 

25% 

25S1 

25SS 

2593 

2594 

2595 

25% 

2597 

2596 

2599 

2bX 

2&01 

2b02 

2b03 

2bOM 

2S05 

2bCXi 

2b07 

2bQ8 

2S09 

2C»12 
2il3 
2bm 
2&15 
2bl& 
2t»l7 

2c>ie 

2&19 
2&20 
2&21 



RK11-RK05 PERFORIflNCE EXERCISER MACYU 30(10%) 
25-flPR-77 10:18 EXERCISER PROGRAM 

.58TTL EXERCISER PROGRfin 



Ob-JUN-77 
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X7772 
007774 
010000 
010002 
01000b 
010010 
010014 



01001b 
010020 
010024 

01002b 
010032 
0in036 
010040 
010042 

010044 
010050 
010054 
OlOObO 
0l0Qb4 
010070 
01007M 
010100 
010104 
010110 
010114 
010120 
010124 



OIOIX 
010134 
01013b 

010144 
0101% 



i04Mib 
012700 
005020 
020027 
001374 
105737 
001045 



005020 
020027 
XI 374 

012700 
012701 
010120 
010120 
010120 

012700 
012720 
012720 
012720 
012720 
012720 
012720 
012720 
012720 
012720 
012720 
012720 
012720 



005227 
X1004 
012737 

000403 
013737 



BEGINING OF THE EXERCISER PfiRT OF THE PROGRAM. 

IF THE PROGRAM MAS RESTARTED AT 210, THEN THE STATISTICS CCLLECTEC 
SO FAR UILL NOT BE CLEARED. 



00130b 
001552 
001253 

002032 



001554 
177704 



025730 
12345b 
17b543 
001201 
0b2%5 
176105 
17H532 
ISTbSO 
030753 
131547 
032070 
12345b 
17d543 



177777 

0000b2 00205b 



EXRCSR: CON, RESET 

MOV tKEY.RO 

IJ: CLR (R0)4- 

CMP RO.tKUHR 

BNE IS 

TSTB FRSTRT 

BNE 3S 



25: CLR (RO)* 

CMF RO.iPCHNO 

BNE 2S 

MOV •KUniN.RO 

MOV i-bO-.R! 

MOV R1,(R0)* 

MOV R1,(R0)* 

MOV R1,(R0)+ 

MOV iRSORVL.RO 

MOV •12345b, (RO)* 

MOV 1176543. (RO)* 

MOV tlgpUtRO)* 

MOV ib2%6.(R0)+ 

NOV 117610$, (RO)^ 

NOV 1174532, (RO)^ 

NOV •15763), (RO)^ 

NOV iaOTST^RO)* 

NOV •13154>,(R0)4 

NOV §32070. (RO)* 

NOV ■123456, (RO)* 

NOV il7b543,(R0)* 



3S: INC 1-1 
BNE 4S 
NOV ISO-.REPCNT 



001236 0C2056 4S: 



BP St 

MOV PCNTR.REPCNT 



•.CLEAR UP THE LOCATIONS FROM 
;'KEY' TO 'KUHR' (EXCLUDED) 



; RESTARTED AT 210' 

;YES. SAVE THE STATISTICS COLLECTED 

;UPT1lL NOU, DONT CLEAR THEM 

; CLEAR LOCATIONS FROM 'HECN' 
:T0 'PCNND' (EXCLUDED) 

; INITIALIZE COUNTS FOR MINS, 
;SECS. KUll 



; INITIALIZE PTR TO RANDOM NO. SEEDS 
USED BY THE RANDOM NUMBER GENERATOR 
:SET UP RANDON NUMBER SEEDS TO BE 



010154 004737 022b5b 



51: JSR PC.CriDPRS 



•.first pass' 
; branch if not 

set up short repitition coun' 
i for first pass. 

; repetition count. uhen this count goes 
;t0 0, it's considered to be an end of pas 
the fcxt pass uill start uill start righ^ 
Ifron uhere the exerciser left off. 

: check if any drives are present 
:if none. go to seop. end of oass 



10-ii-DZRKHG, RKii-RKOS PERFORMANCE EXERCISER MflCYU 
DZRKHG.PU 25-fiPR-77 10:18 EXERCISER PROCf 

177777 MOV 

CLR 

TST 

001520 MOV 
00050S 001522 MOV 
012527 001524 MOV 
0314b3 00152b nOV 

002054 MOV 
002C52 SUB 

CLC 
ROR 

177777 MOV 

CLR 

nov 

025212 J|R 

INC 

001530 nov 



2b23 












cbco 








S ni^ 

UIU17d 


UirifJf 


zberi 


UlUI/b 


UUbi'cD 


cbJU 






cbJl 


n 1 n^nrt 
UlUcOU 


n 1 ^cvT 


cbJc 


UIUcLn 


tllc7j7 


cbJo 


n 1 1 3 


n 1 

Qlc7d7 


cb34 


□lUceU 


□12737 








cbob 


UlUccb 


n 1 ^"Tivi 
LI137LIU 




UlucJc 


IbdrUU 


CO Jo 


UlUcJo 


rmnsu i 


coJ^ 


n 1 noun 


rmcrmn 


co'tU 






cbHl 


01uc4e 


□IcTMb 


cb4e 


ulUcMb 


nncnuc 
UU3u4b 


cb43 






cb*T*t 


UlUcbU 


01Uu4b 


CD i3 


UlvJC^C 




26% 


010256 


005726 


2647 






2648 


010260 


005216 


2649 


010262 


012637 



LiUb 
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•177777, -(SP) 
-(SP) 

DRVPR5.-(SP) 
PC.aiKIV 

(SP)*.DRMAP 
•504.CYLMAP 
•546l,SECMAP 
•13107., FNMAP 

MAXBA.RO 
BASEBA,RO 

RO 

•177777, -(SP) 
-(SP) 

RO,-(SP) 

PClS^SOlV 

(S^)+ 

(SP) 

(SP)'«-.BAnAP 



PUT LOW DIVIDEND ON STACK 

CLEAR HIGH DIVIDCNO AND PUSH 

IT ON STACK 

PUSH DivjSOR ON STACK 

GO TO THE 'DIVIDE' SUBROUTINE 

DISCARD THE REMAINDER. QUOTIENT IS 

NQH ON TOP OF T»C STACK 

GET HAPPING FACTOR FOR DRIVES 

GET MAPPING FACTOR FOR CYLINDERS 

GET MAPPING FACTOR FOR SECTORS 

GET MAPPING FACTOR FOR FUNCTION 

; COMPUTE THE MAXIMUM ALLOWABLE 
;UORD COUNT FOR DATA TRANSFERS 

; CONVERT TO WORDS 

PUT LOU DIVIDEND CN STACK 

CLEAR HIGH DIVIDEND AND PUSH 

IT ON STACK 

PUSH DIVISOR ON STACK 

GO TO THE 'DIVIDE* SUBROUTINE 

DISCARD THE REMAINDER. QUOTIENT IS 

NOU ON TOP OF THE STACK 

:SAVE THE MAPPING FACTOR FOR BUS KZ^l 



10%) 
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coo ■ 




































105737 


001253 




01027? 


001407 

WW A < W* 








105037 


001253 


coo i 


ningnn 


032777 

WwC Iff 


000020 

WWWwWW 


wwOC 


010306 


001401 

A iw A 






Q1Q31Q 


000540 




t WW ■ 








bOOw 


010312 


012737 

Ulw ' wr 


010330 

W A Ww wW 




010320 

W A W>JW W 


012702 

U A W ' WW 


001254 




010324 

W A U«Jw 1 


013703 

U A w • WW 


001264 

WW A WW ■ 




010330 

U A Ww%Mrf 


012700 


011410 


www J 


010334 


112201 

A A WWW A 




bW* U 


010336 


042701 

U iw ' w A 


177770 


CW' 1 


010342 

U A WW iw 


010137 

W A U A wr 


001502 

WW A ^WW 


Pfe72 


010346 

W A WW 'W 


0QQ241 






010350 


006001 




%7H 


010352 

W A WWWb 


006001 




2675 

Ww • J 


010354 

W A fc^^ J ^ 


006001 




WW' w 


010356 


006001 




2677 


010360 


010177 


170644 


2678 








267g 


010364 


013704 


002054 


2680 


010370 


163704 


002052 

WWW WWW 


ili^ 818376 


Q062Q4 
042/04 


000377 


26B3 


010402 


000304 




2684 


010404 


020427 

WwU • W • 


000014 

W WW W A > 


2685 


010410 


003402 




2686 


010412 


012704 


000014 

WWWW A 


2687 








2688 


010416 


010401 

W A U lU A 




268<3 


010420 


020400 

WWW • WW 




26% 


010422 


003401 




2691 


010424 


010001 

W A WWW A 




2692 


010426 


000301 

WwWwW A 




2693 


010430 


005401 




2694 


010432 


010137 


010446 


2695 


010436 


010177 

W A W A f f 


170562 

A f W 

016704 


26% 


010442 


004537 


2697 


010446 


000000 

WW «#w%^w 




2698 


010450 


032514 

WwWa^A • 




2699 








2700 


010452 


012777 


032514 


2701 


010460 


012777 


000003 


2702 
2703 








010466 


104417 




2704 


010470 


004737 


020112 


2705 


01D474 


104001 





THE ENTIRE DISK (ALL DRIVES) IS WRITTEN UITH RANDOM PATTERNS. THE FIRST 
UORO OF EACH SECTOR GIVES THE NUTfiER OF UORDS (S'S COnPLEHENT) WRITTEN IN 
THAT SECTORS. REST OF THE DATA MO^ FOR THE SECTOR ARE GEfCRATED USING 
THE ABSOLUTE DISK ADDRESS AS THE RANDOn SEED. 

IF T« PROGRAM UAS RESTATED AT 210 THEN C«CK IF SU 4 IS SET. IF IT IS 
tEcn 00 NOTREHRITE THE DISK UITH RANDOM PATTERNS. IF SH 4 IS NOT SET THEN 
ALL THE DISKS (PRESENT) ARE WRITTEN UITH RANDOM PATTERNS. 



170632 



URDSK: TSTB 
BEG 
CLRB 
BIT 
BEO 
BR 



001110 IS: 
2S: 



3S: 
4S: 

5S: 



170546 
170534 



MOV 

MOV 

MOV 

MOV 

MOVB 

BIG 

MOV 

CLC 

ROR 

ROR 

ROR 

ROR 

MOV 

MOV 

SUB 

ASR 

BIC 

SWAB 

CMP 

BLE 

MOV 

MOV 

CMP 

BLE 

MOV 

SUAB 

NEG 

MOV 

MOV 

JSR 

.UORO 

.WORD 

MOV 
MOV 



FRSTRT 
If 

FRSTRT 

•SU4,aSUR 

IS 

BEGEXl 

•2S.1LPERR 
•PDA.R2 
DRVPftS,R3 
•4872.. RO 

(R2)-^.ftl 
•1777^0, Ri 
Rl.ODRV 

Rl 
Rl 
Rl 
Rl 

Rl.aRKDA 

MAXBA.R4 

BASEBA,R4 

R4 

•377, R4 

R4 

R4,^12. 
35 

112., R4 

R4,R1 
R4.R0 
41 

RO.Rl 

Rl 

Rl 

R1.5S 
Rl.SRKUC 
RS.GENBUF 
0 

DBUF 

•0BUF,3RKBA 
•3.3RKCS 



RESTARTED AT 210^ 
NO 

YES, CLEAR THE RESTART FLAG 

SU 4 SET^ 

NO 

YES, DONT REWRITE ALL DISKS UVH 
RAfCOM PATTERNS 
LUP TO '25' ON EROR. SU 9 SET! 
POINTER TO DRIVE «'S TABLE 
a OF DRIVES PRESENT 
NUMBER OF SECTORS PER DISK 
GET THE FIRST AVAILABLE DRIVE 
POSITION THE BITS (15,14,13) 



;BASE DISK ADDRESS 

; CALCULATE MAXIMUM BUFFER 

: CONVERT TO UORDS 
;KEEP ONLY UHOLE BLOCKS 

:MAX OF 12 SECTORS 



CON.RDY 
JSR PC,; 
EPROP 1 



:hkCS 



; GENERATE RANDOM DATA BUFER 

; STARTING ADDRESS OF DATA BUFER 

:FROM THIS BUS ADDRESS 
: WRITE, GO 

:UAIT FOR CONTROL ROY 
:ANY ERROR' 

:AN ERROR OCCURED WHILE DOING URITE 



RFORMflNCE 



[RCISER 



1 30(i04b) 



Dfa-JUN-77 
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£70b 
2707 
2708 
270<3 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
272M 
2725 
272£) 
2727 
2728 
272g 
2730 
2731 
2732 
2733 
273M 
2735 
2736 
2737 



01047b 032777 000400 

010504 001435 

OlOSX 032700 000377 

010512 001032 

010514 104401 010522 

010520 0OOM21 

Ol05b4 

010564 013746 001502 

010S70 104403 

010572 001 

010573 000 

010574 104401 001213 
010600 104407 
010602 160400 
010604 003304 

010606 005303 

010610 001247 



013612 032777 000010 
010620 001403 



172434 



170320 



010622 052777 QOOIQO 170404 



;;b5J: 



bS: 



BIT 

BEQ 

BIT 

BNE 

TYPE 

BR 

.PSCIZ 

MOV 
TYPOS 
.BYTE 
.BYTE 

TYPE 
CKSUR 
SUB 
6GT 

DEC 
BNE 



;0N THE DISK. YOU ARE ADVISED Tj 
; BASIC AND DYNAMIC TESTS. 

•BITB.aSUR ;TYPE CURRENT STATUS 

bS 

1377, RO 
bS 

.bSI iJYPE ASCIZ STRING 

64S ;;5ET OVER THE ASCIZ ^ 

< 15>< 12) /URITTINi RANDOM PATTERN, DRIVE / 

0DRV,-(5P< 

1 
0 



USE 



.SCRLF 

R4,R0 
3S 

R3 
2S 



: CHECK FOR SOFTWARE SUR CHANGE 
•DECREMENT SECTOR COUNT 



;MORE DRIVES TO DO' 



;IF SU 3 IS SET, ENABLE THE LINE CLOCK AND INITIALIZE COUNTS. 



BEGEXl: BIT 
BEQ 



BIS 



•5U3.SSUR 
BEGNEX 



•BITb.3KULS 



KUllL CLOCK PRESENT' 
IF NOT. SKIP. NOTE: IF KUllL I£^^, 
NOT PRESENT SU3 SHOULD NOT BE 5E^ 
OTHERUISE, A TIMEOUT UIL^ OCCUR. 
ENABLE KWilL CLOCK ^ ^ 

SERVICED AT PRIORITY 7 (KUSRVE) 



PERFQRIflNCE EXERl 



JOB 

Ob-JUN-77 
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2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

274q 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

178^ 
2783 
27BM 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
27<: 
27C 



010630 
010632 
010636 
010642 
010644 



010650 
010654 
010660 

010662 
010666 
010670 
010674 

010764 

010770 
Q1Q774 
Ol£]776 
OUOOO 
011004 
011006 
011012 



011014 
011020 

8iiL_ 

011030 
011032 
01103H 

011036 
011040 
011044 



011046 
011052 



104416 
012706 
005737 
001402 
004737 



013746 
012746 
000032 

005737 
001040 
104401 
000432 



000000 
000137 

012700 

1^0^ 
020027 
001373 
00H737 
000460 



012700 
032710 
QQ1404 
00S710 
100402 
105710 
100165 

005720 
020027 
001365 



QOllQQ 
001264 

014500 



001244 
010662 



001264 
010676 

003376 
001306 

001326 
014500 



001306 
010000 



001326 



-.THE PROGRfltt IS GOING TO LOOP BftCK TO THIS POINT ftT the END OF A PASS. 

9EGNEX: 



CON. RESET 
nOV iSTfiCK.SP 
TST DRVPRS 
BEQ QNNGER 
JSR PC,GEN8RQ 



; CLEAR EVERYTHING IN DRIVES 
•RESET STACK 
I ANY DRIVES LEFT IN SYSTEM' 

;G0 GENERATE 8 COWIANOS FOR THE 0 



CHECK IF THERE IS ANY UNFINISHED C0W1AN0 IN THE Q, WAITING TO BE EXECUTED. 
IF THERE IS NONE. GO TO THE 'GENBRO' AND GENERATE OloyESTS (COHMANDSj, 
AND PUT THEM IN IhE 0. IF THERE IS AN UNFINISHED COmANOT FIND OUT IF 
THERE IS A PRIORITY COmAND TO BE EXECUTED IWCDIATELY. 



QMNGER: 



IS: 



::65l: 



2S: 
3S: 



4J: 
5S: 



&S: 



MOV 
MOV 
RTI 

TST 
BNE 
TYPE 
BR 

.ASCI2 

HALT 
JHP 

MOV 

PI 
CMP 
BNE 
JSR 
BR 



MOV 
BIT 

n? 

BMI 

TSTB 

BPL 

TST 
CMP 
BNE 



PPRLVL.-(SP) 
•1$,-(§P) 



;NEU PSW . RAISE PRIORITY 
•RETURN Pt *************** 



DRVPRS 
2S 

&4S 

<15)<12> /HALTING 



;ANY DRIVES IN SYSTEM' 

;;TYPE ASCI? STRING 
GET OVER THE ASCIZ 
- PRESS CONTINUE TO RESTART AT '200' /< 15^ < 12^ '.12^ ' 12' 



START 

•KEY.RO 

(RO)* 
45 

R0,tKEY420 



•KEY.RO 
•BITi2.(R0) 

61 

(RO) 
PRICHND 

(R0) + 

RO. •KEY4-20 
5S 



;ANY UNFINISHED COMMAND 
•IN Q 



; IF NOT. GO GENERATE 8 MORE COMflfiNDS 



:ANY HIGH PRIORITY COMMAND IN Q 

;FINISHED' 
;YES 

;IN EXECUTION' 

•NO, GO PROCESS HIGH PRIORITY 
; CHECK THE ENTIRE 0 



:FIND OUT IF THERE IS A WRITE CHECK FUNCTION TO BE DONE IMMEDIATELY AFTER 
:A WRITE. THAT WAS DONE PREVIOUSLY. 



005737 001456 
lOOOHO 



TST 
BPL 



WCFLG 
CHFAFN 



IS WRITE CHECK TO FOLLOW 
WRITE' IF NOT. BRANCH 
YES 
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27% 
2797 
27*38 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
281b 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2924 
2925 



mm 'fm 

0110b4 QlbOOl 002032 
011070 0b2700 00130b 



011074 0227bl 000002 000002 

011102 001413 

011104 011037 001 lb2 

011110 01bl37 000002 001 lb4 

01111b 104027 



nov ucflg.ro 

BIG 1177460, RO 

MOV PCMND(R0),R1 

ADD IKEY.RO 



CMP •2,2(R1) 

BEQ 7S 

MOV (RO),SREGO 

MOV 2(Rn,SREGl 

ERROR 27 



011120 
011124 
011130 
011132 


005037 
052710 
000547 
0127bl 


00145b 
100000 

00000b 000002 7S: 


CLR 
BIS 
BR 
MOV 


UCFLG 

•BIT15,(R0) 

QMNGER 

lb.2(Rl) 


011140 


042710 


174340 


BIC 


•174340, (RO) 


011144 


052710 


000100 


BIS 


lBITb,(RO) 


011150 


000137 


011512 


JMP 


EXCUT 



GET UC FLAG 

LOWER BYTE CONTfilNS KEYIX2 (OFFSET FROM 
KEY). OF THE WRITE FUNCTION 
GET POINTER 

FROM A00RE55 OF THE KEY 
UHICH IMS USED FOR PREVIOUS 
WRITE 

CHECK THAT THE FUNCTION 

WAS A WRITE 

GET KEY CONTENTS 

GET THE FUNCTION INDICATED BY THIS KEY 
IF NOT, ERROR 

BEFORE DOING A WRITE CHECK A WRITE IS 
ALWAYS DONE. OCCURANCE OF THIS ERROR 
INDICATES THAT SOMEHOW AN ATTEMPT IS BEING 
MADE TO DO WRITE CHECK BEFORE A WRITE IS 
PERFORMED. THE KEY IN ERROR MESSAGE WAS 
THE ONE WHICH GAVE RISE TO THIS ATTEMPT, 
THE FUNCTION CODE IS THE FUNCTION ASSOSCIATED 
WITH THAT KtiY 
ABORT THIS WRITE CHECK 



SET UP BITS FOR WRT CHK 
NOW 

CLEAR OUT THE UNNECESSARY 
FLAGS FROM THE KEY 
SET FLAG FOR WRITE CHECK. FOR 
THIS KEY 



;N0 HIGH PRIORITY COMMAND IN j 



fC-ll-DZRkHG, 
D2RKHG.P11 
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)1 
2832 
2833 
283S 
2835 
283b 
2837 
2838 
2839 
2840 
2841 
2842 
2843 

30UU 

Cirri 
2845 

OOUL. 

ctrrb 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
28b0 
2881 
2862 
28b3 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 



011154 

8iii^ 

011164 



011166 
011170 
011172 
011176 
011202 



011204 
011210 
011212 
011214 
011216 
011220 
011222 
011226 
011232 
011234 




105200 
001376 
013746 
0127% 
000002 



012700 
005710 
100436 
105710 
100434 
011001 
042701 
105761 
100426 
105761 



011240 001023 



011242 010002 
011244 GC0414 



011240 
OUCdO 
011252 
011254 
011256 
011260 
011264 
011270 
011272 
011274 



011276 
011300 
011304 



005712 
100412 
105712 
100410 
011203 
042703 
105763 
100402 
020301 
001447 



005722 
020227 
001360 



011306 000470 



•cSflflu 
Chfafn 



HIGH PRI 



011166 



001244 
011204 



001306 



177770 
001426 

001436 



IS: 



2S: 
CHI: 



IS: 



177770 
001426 



001326 



2S: 



011310 
Q11312 



005720 
020027 



001326 



CH2: 



CLR 
CLR 

nov 

RTI 



INCB 
BNE 

nov 
nov 

RTI 



nov 

TST 
BMI 
TSTB 

Bni 
nov 

BIC 
TSTB 

Bni 

TSTB 



BNE 



nov 

BR 
TST 

Bni 

TSTB 

Bni 
nov 

BIC 
TSTB 

Bni 
cnp 

BEQ 



TST 

cnp 

BNE 
BR 



TST 

cnp 



TY COnnfiND MOS FOUND IN THE Q. FIND OUT THE FIRST OVfllLfiBLE 
Q. FOR EXECUTION. 

Rlll ;UfiIT FOR ONY IMnEDIflTE INTERUPT 

) ;NEU PSU 

-(SP) RETURN FOR RTI 



-(SP 
• 1$. 



RO 
.-2 

PPRLVL.-(SP) 
•2$,-(§P) 



•KEY.RO 

(RO) 

CH2 

(RO) 

CH2 

(RO).Rl 
•177>70,R1 
BUSY(Rl) 
CH2 

POS(Rl) 



CH2 

R0,R2 

2S 

(R2) 
2S 
(R2) 
SS 

(R2).R3 
•177>70,R3 
6USY(R3) 
2S 

R3.R1 
POSTION 



(R2) + 

R2, •KEY+20 
1$ 

EXNSK 



(R0) + 

RO.lKEY+20 



;NEU PSW. LOCK OUT CPU 
;RETURN POR RTI »*###«#«#**** 



; UNFINISHED COnnfiND' 
;IN PROGRESS' 

;IS THIS DRIVE BUSY? 

iHflS THIS DRIVE BEEN POSITIONED 
FOR ANY OTHER COnnftND. IF YES, 
I SKIP. IF NOT, PROCEED 

; CHECK IF THERE IS flY OTHER CONNflND 
ON fl DRIVE THAT IS NOT THE SfiHE 
RS THE PREVIOUS DRIVE. THIS COnnfiND 
SHOULD NOT BE IN PROGRESS 
AND SHOULD NOT HAVE BEEN COHPLETED 

•UNFINISHED COnnAND' 

;IN PROGRESS' 



:IS THE DRIVE BUSY' 

;IS THIS COnnAND ON THE SAHE DRIVE' 
IF YES^ 60 AND POSITION THE COnnANO 
P0INTE6 TO BY RO, (BECAUSE THERE IS 
ONE nORE CONHANO THAT CAN BE PERFORNED 

;0N THE SANE DRIVE) 

; CHECK REST OF THE Q 

;IF THERE WAS NO EXECUTABLE COnnOND 
ON ANY OTHER DRIVE. THEN EXECUTE 
•COnnAND POINTED TO BY RO 

: CHECK ENTIRE Q 



DZRKHG.Pn c 

2882 01131b 

2883 

288M 



2887 
2888 
288S 
2890 
28*31 
29«32 
28*33 
2894 
28*35 
28<3b 
28*37 
28*38 
28SS 
2*300 
2*301 
2902 
2*303 
2*304 
2905 
2908 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
291M 
2915 
291b 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
292b 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
293b 
2937 



0U32Q 
011324 
01132b 

011332 
01133b 
011342 
011344 
0113% 
011350 
011352 
011354 
01135b 
0113b2 
011388 
011370 

011374 
01137b 
011402 
011404 



001334 



105777 

m 

012700 
032710 
rai414 
005710 
100412 
105710 
100410 
011001 
042701 
l(K7bl 
100402 
000137 

005720 
020027 
Q013S5 
000137 



Ib7b7b 

02143b 

00130b 
000020 



177770 
00142b 

011bl2 



00132b 
C2143b 



011410 000137 011bl2 



MACYU 30(104b) 
R PROGRRn 

BNE CHI 



MQ5 
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HECK IF THERE 



IS: 
2S: 



3S: 



TSTB 

Bni 

JMP 

MOV 
BIT 
BEQ 
TST 

Bni 

TSTB 
BMI 

nov 

BIC 
TSTB 

Bni 

JMP 

TST 
CMP 
BNE 
JMP 



9RKCS 
1$ ^ 
STftTUS 

•KEY.RO 

•BIT4,(R0) 

3S 

(RO) 

3S 

(RO) 

3S 

(ROKRl 
•177^70, Rl 
BUSY(Rn 
3S 

EXCUT 
(RO)* 

R0,IKEY420 
2S 

STATUS 



•IF THE CONTROLLER IS NOT BUSY FIND 
;RNY POSITIONED CONHMD AND EXECUTE 
;IT 

;n«KE SURE COMHPND IS POSITIONED 

:COMMflND IS UNFINISHED, 
IT IS NOT IN PROGRESS, 
THE DRIVE IS NOT IN BUSY 



;G0 EXECUTE THE COMMftND IF THE 

;RBOVE CONDITIONS ARE SATISFIED 
; CHECK ALL COHNANDS IN Q 



; ENTER HERE IF THERE IS ft PRIORITY COMMAND TO BE EXECUTED. 



PRICNN: JMP 



EXCUT 



;G0 EXECUTE NON-SEEK COMMAND. 



: ENTER THIS IF A COMMAND IS TO BE PREPOSITIONED (BEFORE EXECUTING fi 
; FUNCTION) 



011414 


032710 


000020 




POSTION: BIT 


011420 


001333 






BNE 


011422 


004737 


0121b4 




JSR 


01142b 


004737 


020350 




JSR 


011432 


012777 


000111 


Ib75b2 


MOV 


011440 


00504b 






CLR 


011442 


01274b 


011450 




MOV 


0114% 


000002 






RTI 


011450 








IS: 


011450 


105737 


001535 




TSTB 


011454 


001775 






BEQ 


011458 


012777 


013258 


lb7554 


MOV 


0114b4 


000137 


011154 




JMP 



•BIT4,(R0) 
CH2 



PC.POSK 
PC P05CMND 
llil.SRKCS 
-(SP) 
■1$,-(SP) 



INTIFL 
.-4 

•INTHND.aRKVEC 
CHFAFN 



:ALREAOY POSITIONED' 
YES, GO BACK AND CHECK IF REST OF THE 
IcOnAaNDS in the Q ARE TO BE POSITIONED 

:G0 check. & SET UP FLAGS 
SAVE INF6 ABOUT PRESENT S PAST COMAND 
POSITION THE COMMAND 
NEM PSW. DROP PRIORITY 
RETURN ^OR RTI 



;UAIT FOR INTERRUPT 
RE-ESTABLISH RK INTERRUPT VECTOR 
GO BACK AND CHECK IF ANY COMMANDS TO BE 
POSITIONED OR EXECUTED 



NOB 
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m 

2940 

P3i 

2S43 
2944 
2<345 
2<3% 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
295b 
2957 
2958 
2959 
29b0 
29bl 
2%2 
2%3 
2964 
29b5 
29bb 
2%7 
29b8 
2%9 
2970 
2971 
2972 
2973 
2974 
2975 
297b 
2977 
2978 
2979 
2980 
2981 



011470 
011474 
011500 
011502 
011504 
01150b 
011510 
011512 
011514 
011520 
011524 



012701 
032711 
001412 
005711 
100410 
105711 
lOOHOb 
011102 
042702 
10S7b2 
100005 



00130b 
000020 



EXNSK: 
IS: 



177770 
00142b 



flOV 

BIT 

BEQ 

TST 

BMI 

TSTB 

BMI 

MOV 

BIC 

TSTB 

BPL 



•KEY.Rl 

•bitA.crd 

2J 

(Rl) 
2S 
(Rl) 
2S 

(R1).R2 
•177^70, R2 
BUSY(R2i 
3S 



01152b 
011530 
011534 


005721 
020127 
001357 


00132b 




2S: 


TST 
CMP 
BNE 


(Rl) + 

Rl,lKEY+20 
IS 


01153b 


000425 








BR 


EXCUT 


011540 


010137 


00153b 




3S: 


MOV 


Rl.SAVKEY 


011544 


004737 


0121b4 






JSR 


PC.POSK 


011550 
011554 
0115b2 
0115b4 
011570 


004737 
012777 
00504b 
0127% 
000002 


020350 
000111 

011572 


lb7440 




JSR 
MOV 
CLR 
MOV 
RTI 


PCPOSCMNO 
•lll.SRKCS 
-(5P5 
•4f,-(SP) 


011572 
01157b 
OllbOO 
OllbOb 


105737 
001775 
012777 
013700 


001535 

01325b 
00153b 


lb7432 


4J: 


TSTB 
BEQ 
MOV 
MOV 


INTIFL 
4S 

«INTHND.aRKVEC 
SflVKEY.ftO 



iilNTED TO BY RO 



ONE EXECUTE THE POSITIONED COfmC. 
FIRST POSITION THE COMfWND (KEY) 



; HEADS POSITIONED^ 

; FUNCTION COMPLETED' 
;YES. BRANCH 
FUNtTinN IN PROGRESS'^ 



; DRIVE BUSY' 

; CHECK ALL COMMANDS IN Q 



:N0 POSITIONED COMMAND WAS 
FOUND IN THE 0. SO EXECUTE 
COMMAND POINTED TO BY RO 



AN ALREADY POSITIONLO COMMAND HAS 
BEEN FOUND. 

SAVE POINTER TO THE COMMAND (KEY) 
WHICH IS ALREADY POSITIONED 
GO AND POSITION THE COMHAND(KEr) 
POINTED TO BY RO 

SAVE INFO ABOUT PAST & PRESENT CCMAND 

SEEK, IDE. GO 

ALLOfi FIRSt INTERRUPT 

RETURN FOR RTI «««««««## 



DID INTERRUPT OCCUR' 
BR IF NOT 

REESTABLISH INTERRUPT ADDRESS 
RESTORE THE SAVED POINTER TO KEY 
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2«98M 
?<98S 
?S9b 
2987 
?S88 

?9S0 

?9<31 
29S2 
2<N3 

2995 
29% 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
X15 
301b 
3017 
3018 
X19 
3020 
3021 
3022 
3023 
302S 
302S 
3026 
3027 
3028 
3029 
30X 
3031 
3032 
3033 
3034 
3035 
3038 
X37 



011612 
011614 
011620 
011622 
011624 
011630 



011632 
011634 
011636 
011640 
011644 



011001 
042701 
005710 
100004 
011037 
104030 



000512 
105710 
100004 
011037 
104030 



177770 
001162 



EXCJT: 



IS- 



001162 



011646 000504 



nt i c,cn 
011654 
011656 
011662 
011664 



« MM • M * 

100004 
010137 
104002 
0OOM70 



001426 
001162 



3S: 



011666 


105777 


167330 


011672 


100404 




011674 


00H737 


022032 


011700 


104003 




011702 


000461 




011704 


011002 




011706 


000302 




011710 


042702 


177770 


011714 


006302 




011716 


010204 




011720 


016205 


002032 


011724 


011577 


167300 


0117X 


032777 


000100 167260 


011736 


001006 




0117MO 


010137 


001250 


011744 


004737 


022032 


011750 


10H004 




011752 


000435 





41: 



5S: 



flOV 
BIC 
TST 
BPL 

nov 

ERROR 



BR 

TSTB 

BPL 

lOV 

cRROR 



BR 



TSTB 
BPL 

nov 

ERROR 
BR 



TSTB 

m 

JSR 

ERROR 

BR 



nov 

SUM 

BIC 

ASL 

MOV 

NOV 

flOV 

BIT 

nov 

JSR 

ERROR 

BR 



(R0).R1 
•177^70, Rl 
(RO) 
IS 

(RO).SREGO 
30 



RBRTl 

(RO) 

3S 

(RO.SREGO 
30 



ABRTl 



BUSY(Rl) 
4$ 

Rl.SREGO 
2 

ABRT 



aRKCS 
5S 

PC,GT4RG 
3 

OBRT 



(R0).R2 
R2 

•177770. R2 
RS 

R2.R4 

PCftND(R2),R5 

(R5).3RK0A 

IRUS.3RKDS 
6S 

Rl.SRDRV 
PC,GT4RG 
4 

flBRT 



; EXECUTE THE COftlflfC POinTED TO PY RO 
;R0 CONTfllHS THE POINTER TO THE 
;C0tf1«ND KEY 
;GET DRIVE NO 

;THIS COfmC UNFINISHED' 

;GET KEY 

:IF NOT. ERROR 

«N flTTfenPT URS HfiOE TO REEXECUTE ft COWWC 

thrt hrs rlreroy been executed before. 
Icon drive no. gtven in error message j 

:is it in progress' 

;GET KEY 

;IF YES, ERROR 

;RN RTTEHPT UAS flROE TO REEXECUTE ft COmftNC 
THAT IS IN PROGRESS (ON DRIVE NO. GIVEN 
•IN EROR NESAGE) 

;IS T^C DRIVE BUSY' 

;GET DRIVE I 

•BUSY' FLAG FOR THE DRIVE (CONTAINED 
IN Rl) IS SET, INDICATING THAT T^C DRIVE 
IS 'BUSY' Arc ENGAGED IN AN ACTIVITY^ 
STILL AM ATTEIfT HAS flAOt TO INITIATE 
A FUNCTION ON THIS DRIVE. THIS IS AN 
•UNEXCEPTED ERROR CONDITION. 

; CONTROL READY SET' 
;YES 

;GET RKCS. ER, DS, DA 

; CONTROL ftEAO^" IS NOT SET. THIS IS AN 
UrCXPECTED ERROR COfCITION AT THIS 
POINT OF EXECUTION, CONTROL SHOULC 

:BE NORMALLY READY. 

jFORM THE ADDRESS OF THE 
PARAMETER LIST FOR THIS 
; COMMAND 



GET T« FIRST ITEH FROM LIST 
DISK ADORES 
R/W/S ROY SET' 
YES 

GET DRIVE 1. FOR TYPING SERIAL • 
GET RKCS, Eft, DS, DA 
R/U/S RD^ IS NOT SET FOR THE DRU'E. 
ft (NON-S£fK) FUNCTION WAS SUPPOSED 
TO BE EXECUTED ON THIS DRIVE. THIS IS 
AN UNEXPECTED ERROR CONDITIONS AT THIS 
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3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
30% 
3047 
3048 
304«9 
3050 
3051 
3052 
3053 
30SM 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 



06-JUN-77 
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011754 


016503 


000002 




6S: 


nov 


2(R5).R3 


; POINT OF EXECUTION R/W/5 RDY SHOULD 

;BE NORnALLY SET. 

:GET FUNCTION TO BE DONE 


011760 
011764 


122703 
0C1437 


000002 






cnPB 

BEQ 


•2.R3 

URFNC 


; IS IT A URITE FUNCTION' 

;YES. IT IS URITE 

;IT'§ NOT A URITE FUNCTION 


011766 
011772 
011776 
012004 


016503 
052703 
016577 
016577 


000002 
000501 
000004 
000006 


167220 
167214 


NURFNC : 


nov 

BIS 

nov 
nov 


2(R5) .R3 
t501,ft3 
4(R5K9RKUC 
6(R5), SRKBA 


;GET FUNCTION TO BE DONE 
SET SSE.IDE.GO BITS 
;GET UORO COUNT 
IgET BUS ADDRESS 


012012 


004737 


020372 






JSR 


PC,FNCnNO 


:SAVE INFO ABOUT PAST & PRESENT COnAND 


012016 


010377 


1672X 






nov 


R3,9RKCS 


;SET SSE.IDE, FUNCTION, GO 


012022 
012026 

012032 
012036 
012042 


052710 
052704 

110461 
110437 
000137 


000200 
000200 

001426 
001534 
021436 






BIS 
BIS 

novB 
novB 
jnp 


IBIT7,(R0) 
•BIT7,R4 

R4,BUSY(R1) 
R4.INTFLG 

stAtus 


;SET FLAG INDICATING FUNCTION 
IN PROGRESS 

R4 CONTAINS OFFSET TO THE COnNAND KEY 
;(FROn KEY ) BITS U-J. BIT 7 15 SET 

SET FLAG INDICATING OftlVE BUSY 
•SET FLAG FOR INTERUPT USE 


0120% 
012052 
012056 
012060 


004737 
004737 
000240 
000137 


014426 
016540 

010650 




ABRT: 
ABR'l: 


JSR 
JSR 
NOP 

jnp 


PC.DRVfiBT 
PC.CHKDRV 

QnNGER 


; ABORT THE FUNCTION 
;G0 CHECK. DRIVE ERRORS 
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:X3b7 














3068 














30bS 


012064 


016537 


000004 


012104 


URFNC: 


MOV 


X/0 


012072 


01&537 


000006 


012106 




MOV 


3071 


012100 


004537 


016704 






JSR 


3072 


01210M 


000000 






IS: 


.UORD 


3073 


012106 


000000 






2S: 


.UORO 


307M 


012110 


052703 


000101 






BIS 


3075 


012114 


013777 
013777 


012104 


167102 




MOV 


3076 


012122 


012iOC> 


167076 




MOV 


30^ 


012130 


004737 


020372 






JSR 


3078 
307S 














01213M 


010377 


167062 






MOV 


3080 


012140 


052710 


000200 






BIS 


3081 


012144 


052704 


000200 






BIS 


3082 














3083 


012150 


110461 


001426 






MOVB 


308S 


012154 


110437 


001534 






HCVB 


308S 














3086 














3037 


Cl2ib0 


0CQi37 


021436 






J1P 



4(R5),1| 
6(R5);2l 
RS.GEfduF 

0 
0 

•101.R3 

is.a^Kuc 

2S SRKBO 
PC,FNCI1ND 

R3,SRKCS 

•B1T7,(R0) 

•BIT7,R4 

R4,BUSY(R1) 
R4,INTFLC 



STATUS 



THE FUMCTION TO BE EXECUTED IS P 
URITE FUNCTION 

GET • OF UOROS TO BE URITTEN 
Set STARTING Bfl OF^UFFER 
GO GENERATE BUFFER 
SAVE • OF UOROS 

SAVE STARTING BUS ADDRESS OF BUFFER 
SET IDE AND GO BIT 
SET UORD COUNT 
SET BUS ADDRESS 

SAVE INFO ABOUT PAST & PRESENT COMANC 

ISSUE URITE.IDE.GO 

SET FLAG IN6lCAtlNG FUNCTION IN 

PROGRESS 

SET FLAG INDICATING DRIVE BUSY 

SET FLAG FOR INTERUPT USE 

R4 CONTAINS OFFSET TO THE C0W1AND KEY 

CFROM 'KEY') BITS 0-3, BIT 7 IS SET 



10-il-OZRKHG, RKU-RKQS PERFORMftNCE EXERCISER 
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308S 


0121b6 


0*42701 


17/77D 


3090 


012172 


105761 


001426 


30*91 


012176 


10000*4 




30S2 


012200 


010137 


□01162 


30*33 


01220S 


10*4002 




30SM 


012206 


000M70 




309S 








30% 








30S7 








3096 








3099 


012210 


105777 


16/006 


31X 


n • til 

01221M 


100404 




3101 


012216 


004737 


022032 


3102 


012222 


104003 




3103 


01222S 


00045M 




310*4 








3105 








3106 


012226 


011002 




3107 


0122X 


000302 




3106 


012232 


042702 


177770 


3109 


012236 


006302 




3110 


□122*40 


016203 


002032 


3111 


0122*4*4 


011377 


166760 


3112 


012250 


032777 


000100 


3113 




□DluU6 




1 f Li 

311H 


012260 


□1^137 


001250 


3115 


012264 


004737 


022032 


311b 


□IccTu 


104004 




3117 


n 1 ^^^^ 

□12272 


□00H31 




3il8 








3119 








j120 








3121 








3122 


□1227M 


110261 


f LI 
00142d 


3123 


□12300 


152761 


□00200 


312*4 


□12306 


032710 


000010 


3125 


□12312 


001006 




312b 


□1231*4 


112761 


□00377 


3127 


n 1 ^^^^ 

□12322 


052710 


000020 


3128 


□12326 


000402 






□12330 


052710 


000200 










3131 


□1233*4 


012777 


012376 


31 Jc 


□12342 


n 1 ^^^^ 
013777 


[ttJ1244 


3133 


□12350 


105037 


001535 


3i3M 


□1235*4 


□00207 




3135 








Jl JO 


UicJso 


UUMr J/ 


n t UU3L 


2137 


012362 


004737 


016540 


3138 


012366 


000240 




2139 


012370 


005726 




2140 


C12372 


000137 


010652 



POSK: 



IS: 



2S: 



3S: 



4$: 



bS: 
7$: 



30(10%) 



LUb 

Ob-JUN-77 
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(RQ).Rl 
•177^70, Ri 
BySY(Rl) 

Rl.SREGO 

7J 



3RKCS 
2S 

PC,GT4RG 
3 

6S 



(R0),R2 
R2 

•177770, R2 
R2 

PCf1f4D(R2).R3 
(R3),9RKDA 
IRUS 9RKDS 
3S 

Rl.SRDRV 
PC,GT4RG 
4 

6S 



R2.BUSY(R1) 
•BtT7,BUSY(Rl) 
IBIT3 (RO) 
4$ 

•377, PCS (Rl) 

•BIT4,(R0) 

5S 

•BIT7,(R0) 
•INTlSK.aRKVEC 

pprlvl.Srkstrt 

INTIFL 
PC 

PC.DRVflBT 
PCCHKDRV 

(SP)* 
QflNGEP 



INITIftL CHECKING PRIOR TO DOING 
POSITIONINC C0f1f1«r4D POINTED TO BY RO 
DRIVE BUSY' 

GET DRIVE • FOR UHICH 'BUSY' IS SET 
•BUSY' FLftG FOR THE DRIVE (CONTAINED 
IN Rl) IS SET. IMDICftTING THAT THE DRIVE 
IS 'BUSY' AND ENGftCED IN m ACTIVITY. 
STILL AN ATTEHPT MS HADE TO INITIATE 
POSITIQNINGN ON THIS DRIVE, THIS IS AN 
UNCXCEPTED ERROR CONDITION. 
CONTROL READY SET' 



RKCS. ER, D5, DA 
CONTROL ftEAO^ IS NOT SET. THIS IS AN 
UNEXPECTED ERROR CONDITION AT THIS 
POINT OF EXECUTION, CONTROL SHOULD 
BE NORMALLY READY. 



STARTING UORD OF COMNAND TABLE 

R/U/S RDY SET' 
YES 

GET DRIVE •. FOR TYPING SERIAL • 
GET RKCS, ER, DS, OA 
R/U/S RO* IS NOT SET FOR THE DRIVE, fi 
(POSITIONINC) SEEK UAS SUPPOSED TO BE 
BE D^mED ON THIS DRIVE. THIS IS 
AN UrCXPECTEO ERROR CONDITION. AT THIS 
POINT OF EXECUTION R/U/S ROY SHOULD 
fWRMALLY SET. _ 
T FLAG INDICATING DRIVE BUSY 

;IS THIS A SEEK COnNANO 

SET FLAG INDICATING, THIS DRIVE POSITIONS 
SET FLAG INDICATING THIS COmAND 

POSITIONED. SET FLAG INDICATING 
FUNCTION IN PROGRESS 
SET UP RKll VECTOR 
PSU ON INTERRUPT 

CLEAR FLAG INDICATING - INTERRUPT 
OCCURRED 

ABORT THE FUNCTION 
GO CHECK. DRIVE ERRORS 

:POP THE RETURN ADDRESS 
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FOb 
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OrRKHG. 



3141 








3142 








3143 








3144 








3145 


012376 


105237 


001535 


31% 


012402 


053766 


001244 


3147 








3148 








314S 


012410 


004737 


020272 


3150 


012414 


104005 




3151 








3152 








3153 


012416 


032777 


02000C 


3154 


012424 


001403 




3155 


012426 


004737 


022222 


3158 








3157 


012432 


104012 




3158 








3159 








3160 
3161 














3162 








3163 








3164 








3165 








3166 


012434 


017700 


166562 


3167 


01244O 


042700 


177760 


3168 


012444 


022700 


000010 


3169 


012450 


001403 




3170 


012452 


004737 


022032 


3171 


012456 


l04OO6 




3172 








3173 








3174 








3175 








3176 








3177 


012460 


017700 


166544 
017777 


3178 


012464 


042700 


3179 


012470 


000241 




3180 


012472 


006100 




3181 


012474 


006100 




3182 


012476 


006100 




3183 


012500 


006100 




3184 


012502 


010001 




3185 


012504 


105761 


001426 


3186 


012510 


1004G3 




3187 


012512 


010137 


001162 


21BB 


012516 


104007 




3189 








3190 
3191 






















3193 








2194 


012520 


116100 


001426 


3195 


012524 


042700 


177600 


21% 


31253C 


362700 


00 1306 



AFTER ISSUING A SEEK FOR POSITIONING. AN INTERRUPT IS ALLLOUED TO TAKE 
tPLACE. THIS HANDLER SERVICES THE FiftST INTERRUPT, WHICH OCCURS AS A RESULT 
OF THE SEEK BEING ACCEPTED. 



INTISK: INCB INTIFL 
000002 BIS PPRLVL,2(SP) 



JSR PC.CHKCRDY 
ERROR 5 



166576 



IS: 



2S: 



3S: 



BIT 
BEQ 
JSR 



NOV 
BIC 
CMP 
BEQ 
JSR 
ERROR 



MOV 

BIC 

CLC 

ROL 

ROL 

ROL 

ROL 

MOV 

TSTB 

BMI 

MOV 

ERROR 



MCVB 

BIC 

ADO 



ISCP.SRKCS 
IS 

PC.RG4SDR 



ERROR 12 



SRKCS.RO 
•177740, RO 
•10, RO 
2S 

PC.GT4RG 
6 



3RKDA.ro 
•17777, RO 

RO 
RO 
RO 
RO 

RO.Ri 

BU5Y(RI) 

3S 

Rl.SREGO 



BUSY(R1).R0 
•177600. ftO 
•KEY.RO 



; INDICATE THAT INTERRUPT TOOK PLACE 
{CPU PRIORITY TO 5 ON RETURN FROM 
I INTERRUPT 

; CONTROL READY SET' 
CONTROL READY NOT SET AFTER THE FIRS^ 
{INTERRUPT ON INITIATING SEEK 



SCP BIT SET' 



FOR 



GET RKCS. ER, DS. DA AMD DRIVE • 
TYPING S^RIA^ DRtVE • 
SCP SET AFTER FIRST INTERRUPT ON 
ACCEPTING SEEK. A SEEK HAS INITIATED. 
AS A RESULTOF WHICH (THIS) FIRST 
INTERRUPT OCCURRED, BUT SCP SHOULD 
NOT BE SET AFTER T^E FIRST INTERRUP"^. 
(IT GETS SET ONLY AFTER THE SEEK 
IS DONE). 

THIS IS THE FIRST INTERRUPT 
AFTER ISSUING SEEK 

CHECK THERE IS A SEEK FUNCTION 
IN RKCS 

GET RKCS.ER.OS.DA 

RKCS DOE§ n6t tONTAIN 'SEEK* FUNCTION. 
A SEEK UAS INITIATED AS A RESULT OF MHK 
(THIS) FIRST INTERRUPT OCCURRED. RK:C5 
SHOULD CONTAIN THE SEEK FUNCTION BITS. 
BUT IT DID NOT 

:GE^ THE DRIVE • FROM RKDA 



CHECK THIS DRIVE NO. UAS BUSY 

OK. IF IT UAS 

GEt DRIVE KFROM RKDA) 

'BUSY' FLAG FOR THE DRIVE UAS NOT SET. 

THE DRIVE i (IN RKDA) UHICH CAUSED O 

THIS (FIRST) INTERRUPT SHOULD HAVE BEEN 

•BUSY' ( SOFTWARE FLAG). NOTE UHENEVER 

ANY OPERATION IS INITIATED ON ANY DRIVE 

•BUSY' FLAG FOR THAT DRIVE IS SET. 

{FORM THE ADDRESS OF 
{THIS KE^ 



GOb 
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31<37 










31% 


012S3M 


032710 


000020 




319^ 


012540 


XI 003 






3200 


012542 


010137 


001162 




3201 


012546 


104010 






3202 










3203 










320H 










3205 


012550 


105761 


001436 




3206 


012554 


001003 






3207 


012556 


010137 


001162 




3208 


012562 


104010 






320S 










3210 










3211 










3212 










3213 










3214 










3215 










321& 










3217 


012564 


005777 


166432 




321B 


012570 


100044 






321S 










3220 


012572 


032737 


000040 


001474 


3221 


012600 


001012 






3222 


012602 


042737 


000040 


001474 


3223 


012610 


001026 






322H 


012612 


052737 


000040 


001474 


3225 










3226 


012620 


004737 


022222 




3227 










3226 


012624 


104011 






322S 










3230 










3231 










3232 


012626 


042710 


000020 




3233 


012632 


105061 


001426 




3234 


012636 


105061 


001436 




3235 










3236 


012642 


004737 


016006 




3237 


0126% 


052710 


010000 




3238 


012652 


105261 


001446 




323<3 


012656 


126127 


001446 


000003 


3240 


012664 


003406 






3241 










3242 


012666 


004737 


014426 




3243 


012672 


005061 


001446 




3244 


012676 


005037 


001474 




32"5 










22"*t 


3:57C2 


QC0Q02 







4J: 



5S: 



6S: 



7i: 



SJ: 



BIT 
BNE 
MOV 
ERROR 



TSTB 
BNE 
MOV 
ERROR 



TST 
BPL 

BIT 
BNE 
BIC 
BNE 
BIS 

JSR 

ERROR 



BIC 

CLRB 

CLRB 

JSR 

BIS 

INCB 

CMPB 

BLE 

JSR 
CLR 
CLP 

RTI 



•BIT4, (RO) 
4S 

Rl.SREGC 

10 



POS(Rl) 
5S 

Rl.SREGO 
10 



aRKCS 
BS 

•BITS.ERCODE 
6S 

•BIT5,ERC0DE 
7$ 

IBIT5,ERC0DE 

PC,RC4SDR 

11 



•BIT4.(R0) 

BUSY(ftl) 

POS(Rl) 

PC,CLRERR 
•b1t12.(R0) 
RETRY (ft 1) 
R|TRY(R1),I3 

PC^DRVfiBT 
RETRYCRi; 
ERCODE 



;IS THE KEY ftCTIVE FOR 'POSITIONING" 
GET DRIVE NUMBER 

POSITIONING FLAG (IN THE KEY) IS NOT 
SET FOR THE INTERRUPTING DRIVE (GIVEN 
IN EROR MESAGE) 

IS THE 'POSITIONING' FLAG SET' 

GET DRIVE • FROM RKDA 
THIS INTERRUPT IS SUPPOSED TO BE AS 
A RESULT OF INITIATING A (POSITIONING) 
SEEK. UHENEVER A SEEK IS INITIATED 
TO POSITION THE HEADS THE POSITIONING 
FLAG (POSI) IS SET. OCCURANCE OF THIS 
ERROR INDICATED THAT THE DRIVE • 
(FROM RKDfi)GIVING THIS INTERRUPT DIC 
NOT HAVE ITS POSITIONING FLAG SET. 

ANY ERROR' 
NO - RETURN 



;SAME ERROR 



GET RKCS. ER, OS. DA AND DRIVE • FOR 

TYPING SfeRIft DRIvE I 

BIT 15, 'ERR' SET IN RKKCS AFTER FIP5T 

INTERRUPT - UHICH OCCURRED AFTER A 

POSITIONING SEEK UPS INITIATED. RKER 

WILL CONTAIN ERROR BIT/S 

CLEAR 'POSITIONING' BIT 

CLEAR 'BUSY' FLAG 

CLEAR 'POSITIONING" FLAG 

CLEAR THE ERROR 

INDICATE HIGH PRIORITY ON 

INCREMENT RETRY COUNT 

DONE RETRIES" 

NO 

; ABORT THE FUNCTION 



HOB 



ZRKHG.Pll 2S-flPR-77 
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3247 
3248 
3249 
32SQ 

32S3 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

327M 

3275 

3276 

3277 

3279 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3296 

32% 

3297 

3298 

3299 

3300 

3301 

23Ca 



01270S 
012710 


004737 
104013 


020272 


012712 
012716 


0177% 
004737 


166300 
022170 


012722 
012724 
012730 
012732 
012736 


012601 
105761 
100403 
004737 
104014 


00142b 
022032 



012740 
012744 
012750 
012754 
012760 
012762 
01276b 



012770 
012774 
012776 
013002 



116100 
042700 
062700 
032710 
001003 
010137 
104010 



105761 
001003 
010137 
104010 



001426 
177600 
001306 
000020 

001162 



001436 
001162 



SKCriP: J5R 

ERROR 



IS. 



2S: 



3S: 



«0V 
JSR 

MOV 

T5TB 

BMI 

JSR 

ERROR 



PC,CHKCRD> 
13 



aRKDS.-(SP) 

pc.crOtlf 

(SP)*.R1 
BUSY(ftl) 
2S 

PC.GT4RC 
14 



novB 

BIC 

BNE 
flOV 
ERROR 



TSTB 
BNE 
flOV 
ERROR 



BUSYiRD.RO 
■177600, ftO 
•KEY.RO 
•Bm,(RO) 
3S 

RIJREGO 
10 



POSiRl) 
4J 

RIJREGO 
10 



013004 
013010 


004737 
000501 


016540 




4S: 


JSR 
BP 


PC.CHKDRV 
PFtERR 


013012 


017777 


166200 


166210 




MOV 


SRKOS.SRKOA 


013020 
013026 
013030 
013034 
013040 


032777 
001005 
004737 
010137 
104015 


000100 

022032 
001250 


16b 170 




BIT 
BNE 
JSR 
MOV 
ERROR 


•RUS.SRKDS 
5S 

PC,GT4RG 
Rl SRDRV 
15 


013042 
013050 


032777 
001007 


001000 


166146 


5t: 


BIT 
BNE 


ISIN.3RK05 
PSIN^R 



:THIS ROUTINE IS ENTERED UPON COMPLETION 
jOF A SEEK OPERATION UNDER INTERRUPT MCOE 

; CONTROL READY SET' 

;GET DRIVE I THAT INTERRUPTED 
IrOTATE BITS 15,14,13 TO POSITION 

iSfeT'THE ROTATED BITS (DRIVE ID BI'Sj 
; CHECK THAT DRIVE UAS BUSY 



•BUSY' FLAG FOR THE INTERRUPTING DRIVE ^ 
(RkBs) mas NOT SET. DRIVE • (^4^.13 ; «K 
INTERRUPTED AFTER SEEK HAS COHPLETE. BUT 

INTERRUPTING 'BUSY' FLAG SHOULD HAVE 
?HE' ADDRESS OF THE 

KEY 

; CHECK THAT POSITION BIT UAS SET 



GET DRIVE NUNBER 
POSITIONS 



rw3i.*wn*NG FLAG (IN KEY) IS NOT SET 
SET FOR INTERRUPTING DRIVE (GIVEN IN ERCP 
NESAGE) 

CHECK POSITIONING FLAG HAS SET 
•POSITIONING' FLAG UAS CLEAR. UhCN 



DOING A (POSITIONING) SKK. THE FLAG 
•POSi' IS SET TO INDICATE tHAT DRIVE 
IS POSITIONING HEADS (SEEKING). THIS 
E^OR INDICATFS THAT FOR T« INTERRUPTING 
DRIVE (RKOS) ^^ITIONING FLAG UAS 

go! check for QRV ERORS (0PLj^.DRY.UP5. 
IF'THERTiS a ORV EROR. RETUftN H^RE 
THE DRIVE HAS BEEN OESfa^JED, ALL 

GET tS drive • FROM DRIVE ID BITS 
IN RKOS AND ADDRESS THE DRIVE 
R/U/S ROY SET' 

*SIN' ERROR' 
YES. BRANCH 
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lUb 

Ob-JUN- 



3303 013052 032777 OMOOOO l£>blM2 

330M 0130b0 QOlObO 

3305 

330b QI3Qb2 IQSObl 001H2b 

3307 C130bb 300207 



BIT 
BNE 

CLRS 
RTS 



iHE.aRKCS 
PORKER 

BUSY(Rl) 
PC 
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ANY HARD ERROR' 
YES 

NO ERRORS DETECTED ON POSITIONI^C 
CLEAR BUSY FLAG FOR THIS DRIVE 



013070 
01307M 

mm 

013106 

8i§iii 


004737 
010137 

mm 

105061 

m 


022032 
001250 

000020 
001436 


013122 


004737 


016264 


013126 


000432 





3130 
3134 

3140 
3144 
3152 
3154 
3160 



013162 
013166 
013172 
013174 
013176 
013202 
013206 
013212 

013214 
013220 

0132^ 



105261 
105061 

052710 
000207 

052710 
105061 
010102 
006302 
005262 
042710 
104421 
000207 

042710 

004737 
010137 
104017 



001446 
001436 

88io§3 

010000 



104000 
001446 



001672 
010000 
002165 



010000 



001 



01323H 
013240 
013244 
013250 
013254 



004737 
042710 
105061 
105061 
000725 



016006 
000020 
001436 
001426 



JDb 

06- JUM- 



PS I NER: JSR 
flOV 

CLRB 

JSR 
BR 



PSRTRY: INCB 
CLRB 

CMP 
BEQ 
BIS 
RTS 



IS: BIS 
CLRB 
MOV 
ASL 
INC 
BIC 

TYPMSG 
RTS 

PFTERR: BIC 
RTS 

PORKER: JSR 
MOV 
ERROR 



JSR 

BIC 

CLRB 

CLRB 

BR 



PC,GT4RG 
Rl.SRDRV 

•llT4,(R0) 

POS(Ri) 

PC.SINCNT 
PFTERR 



RETRY(Rl) 
POS(Rl) 

•BIT12,(R0) 
PC 



•104000, (RO) 
RETRY (Ri) 
R1,R2 
R2 

ABORT (R2) 

i6IT12,(R0) 

.MSGIO 

Pc 

•BIT12,(R0) 
PC 

PC.GT4RG 
R1,SRDRV 
17 



PC.CLRERR 

•BlT4,(R0) 

POS(Ri} 

BUSY(Rl) 

PSRTRY 
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THERE UfiS P 'SIH- ERROR ON 
DOING POSITIONING (SEEK) 

GET DRIVE •. FOR TYPING SERIAL • 
CLEAR POSITTIONING FLAG 



F MORE 



KEEP COUNT OF 'SIN' ERRORS. I 

mm ^miM^''^ 



CLEAR POSITION FLAG 

SET HI PRIORITY ON RETRY 
RETURN 

INDICATE COmAND ABORTED 

CLEAR RETRY COUNT FOR FUTURE USE 

{INCREMENT ABORT COUNT 
;CLR HI PRIORITY BIT 
; PRINT ABORT MESSAGE 

; CLEAR HI PRIORITY BIT IF SET 



IF ANY ERROR BIT IN RKCS SET 
GET DRIVE •. FOR TYPING SERIAL ■ 
ON DOING POSITIONING (SEEK) 
ENTER HERE 

GO CLEAR THE HARD ERROR 

CLEAR POSITIONING BIT IN KEY 

CLEAR POSITIONING FLAG FOR THIS DRI.'E 

CLEAR BUSY FLAG FOR THIS DRIVE 



33S3 



5T 
33b2 
33b3 
3364 
3365 
33&& 
33b7 
3368 
33&9 
3370 
3371 
3372 
3373 
337M 
3375 
337E) 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
338M 
3385 
3386 
3387 
3388 
338«3 
3390 
3391 
3392 
3393 
3394 
3395 
33% 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
340B 



013256 


105037 


001534 




INTHND: 


CLRB 


013262 


013766 


001244 


000002 




flOV 


013270 


004737 


020272 






JSR 


013274 


104024 








ERROR 






npnnnn 


iD3r ID 


IS • 


BIT 


013304 


001403 








BEQ 


013306 


004737 


012704 






JSR 


013312 


000002 








RTI 


013314 


017746 


165710 




2S: 


MOV 


013320 


004737 


022170 






JSR 




niptnc 

UiCDUS 








MOV 


013326 


105765 


001426 






TST8 


013332 


100403 








8ni 


013334 


010537 


001162 






MOV 


013340 


104007 








ERROR 


013342 


105065 


001436 




3S: 


CLRB 


0133% 


116500 


001426 






MOVB 




nM?7nn 

U^Cr UU 


1 777fin 

kill ou 






BIC 

WAV 


013356 


062700 


001306 






mu 


013362 


032710 


000010 






BIT 


013366 


OOlwOl 








BEQ 


013370 


104020 








£h ICR 


013372 


105710 






4S: 


TSTB 


013374 


100403 








BMI 


013376 


010537 


001162 






MOV 


013402 


104031 








ERROR 


013404 


011002 






5S: 


MOV 


013406 


042702 


177770 






BIC 


013412 


020502 








CMP 


013414 


001405 








BEQ 



KOb 
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INTFLG 

PPRLVL,2(SP) 

PC.CHKCRDY 

24* 

iSCP.SRKCS 
2S 

pc.SKcnp 

aRKOP,-(SP) 

PC.CROTLF 

(SP)+.R5 
BUSY(R5) 
3S 

RS.SREGO 
7 



P0S(R5) 

BUSY(R5).R0 

•177760, ftO 

•KEY.RO 

IBIT^,(R0) 

4$ 

20 



(RO) 
5S 

R5,SREG0 

31 



{R0).R2 
I177>70,R2 
R5,R2 
6S 



THAT 



ENTER THIS ROUTIfC WHEN «H INTERRUPT 

CPU PR 
CQNTRa 
CQNTRO 
OF FUN 
SCP SET' 



ORITY TO 5 ON RTI 



REOOY SET' 

ROY CLESR AFTER INTRUPT ON COMPLETION 
TION, IT SHOULD BE SET 
SEARCH COMPLETE' 



GO TO SEEK COMPLETE ROUTINE 



GET THE DRIVE • 

THE conrm) ms 

INTERRUPT MODE 



TO UHICH 
ISSUED UNDER 



ROTATE BITS 15,14,13 TO POSITION 

THE DRIVE I FROM THE STACK 
CHECK THAT DRIVE MAS BUSY 



•BUSY' FLAG FOR THE INTERUPTING DRIVE 
WAS NOT SET. HHEfCVER ANY ACTIVITY 
IS INITIATED ON A DRIVE, THE (SOFTWARE) 
'BUSY' FLAG IS SET TO INDICATE THAT 
DRIVE IS BUSY DOING SOMETHING. 
OCCURANCE OF THIS ERROR INDICATES 
THATTHE 'BUSY' FLAG FOR THE INTERRUPTING 
DRIVE (RKDA) IS CLEAR! 
CLEAR THE POSITION FLAG 
GET THE ADDRESS OF THE 
COMMAND KEY 

CHECK IT'S NOT A SEEK FUNCTION 

(SOFTWARE) FLAG FOR T« INTERRUPTING 
DRIVE (RKDA) INDICATES THAT A SEEK 
FUNCTION WAS BEING EXECUTED ON THE 
DRIVE. IF THAT'S THE CASE, SCP BIT SHOULD 
HAVE SET ON SEEK DONE INTRijPT, BUT IT 
WAS NOT. NOTE. HERE THERE IS A CHANGE 
OF MULTIPLE ERRORS OR ERROR 
MISINTERPRETATION 
CHECK THAT FUNCTION IN 
PROGRESS BIT WAS SET 
GET DRIVE NUMBER 
IF NOT. ERROR 

'FUNCTION IN PROGRESS' FLAG (IN THE KEY) 
WAS NOT SET FOR THE INTERRUPTING DRIVE. 
IF THIS DRIVE WAS BUSY DOING THE 
FUNCTION, THE ABOVE FLAG SHOULD BE SET. 
CHECK ThAt the INTERRUPTING 
DRIVE (IN RKDA) IS THE SAME AS 
THE DRIVE IN THE KEY 
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8181^7 


nn 1 1 1;? 

88 64 






UiJ~Co 


I n*4n3? 






"JU 1 3 


SiSS 


8ll»3 








□13434 


□1DD37 


001536 

WU A www 






ni 3i4un 


nnn3n3 












1 77770 

i t f t t u 




3*417 


0 3441 


□06303 








ni >icn 


017704 


165546 

A WWW lU 




t Q 


ni >4CI4 


nM?7nM 


1777*»I 








n 1^305 


nn?n3? 














«3iCC 


ni "MCtU 




nnnnn? 

uuuuuc 




•J^CJ 










W It ■ 


□13470 


Q0140(i 






3425 


8l347? 


016537 


000002 


001162 






□10437 


□01164 




3437 


□13504 

UA«JwWi 


104033 






34PS 
















QOflPOO 
uuucuu 




3*430 

3431 


w9 AC 

013520 


142761 
004737 


000900 


0Q149t 

UU A ^co 


3*43? 


nt 3CPU 


nnnnnp 






3S33 










3434 










3*4 3C 




n3P777 


noinoo 

UUiUUU 




3437 


□13534 
□13536 


0nt4?Fi 

0047!? 






3438 














i U I U i D 








ua«j3 11 




01(tl5? 










016964 

U A WbW ■ 




344? 










3*4*43 




mono? 






3*4*4*4 

Jill 










3445 


Q13556 


105961 


□01446 

WW A ( 'W 




34*4& 




ACCr OA 


wwwUww 


001446 

WU A ) iw 


3447 

Wit » 


□13570 








344fi 


□13572 


052710 


OIDQDD 




3444 


□13576 


04?710 


WWW WWW 




345Q 


□1360? 


OOMO? 






3*451 














QDM737 


UX ■ iCw 






ni3fiiri 








3454 










3455 


013612 


032777 


040000 


165402 


3456 


013620 


001076 






3457 


013622 


032777 


100000 


165372 


3458 


013630 


001002 






3459 


013632 


000137 


014300 





bS: 



7J: 



8S: 
9S: 



tlQV 
MOV 



BEQ 
MOV 
MOV 
ERROR 

BIG 
BICB 
JSR 
RTI 



BIT 

ERROR 

JSR 

JSR 

RTI 

INC6 

CHPB 

BEQ 

BIS 

BIC 

RTI 

JSR 
RTI 

BIT 
BNE 
BIT 
BNE 
JMP 



)V 

ERROR 32 

nOV (R0).R3 

MOV RO,SAVKEY 

SUAB R3 

BIC •177770, R3 

ASL R3 

MOV aRKC5.R4 

BIC •177761.R4 

MOV PCnND(R3),R5 

CMPB 2(R5),R4 



71 

2(R5}.SREG0 

R4,SREG1 

33 

•BIT7,(R0) 

•BIT7,BUSY(R1) 

PC,CH^:DRV 



•5IN,aRKD5 
101 

PC,RG4SDR 
16 

PC.CLRSIN 
PC SINCNT 



RETRY (Rl) 

•3,RETRY(R1) 

BS 

•BIT12,(R0) 
•BIT4,tR0) 

PC,DRVRBT 



•HE.aRKCS 

Hro^RR 

•ERR.aRKCS 

SFTEftR 

NOEROR 



UNEXPECTED DRIVE NO. INTERRUPTED 



:get position of the prrwieter 
IlIst from the key 

; clear all but function code 
; check that the function in 
rkcs rno the key rre same. 



IF NOT. ERROR 

GET rx^CTD FUNCTION CODE IN RKCS 
GET CODE RECVD 

FUNCTION COQE THAT IS IN RKCS AFTER. THIS 
INTERRUPT OCCURED IS NOT THE EXPECTED ONE 
CLEAR 'FUNCTIOW IN PROGRESS' BIT 

IF NO ERROR, RETURN HERE 
SIN ERROR' 

GET RKCS. ER. OS. DA AND DRIVE t FOR 
TYPING SERIAL DRIVE • 
SIN ERROR 

HELP COUNT OF SIN'S. IF HORE 
THAN NAXn ALLOUABLE. DESELECT THE DRIVE 
RETURN HERE IF COyNt=NAX 
RETURN HERE IF LESS THAN 



MAX 



; ABORT THIS FUNCTION 

;HARD ERROR' 

:SOFT ERROR' 
YES 
NO 



[10b 
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3MfaO 
3Sfel 
34b2 
3Hb3 
3%4 
3%5 
3%£> 
3H67 

131? 

3470 
3471 
3472 
3473 
3474 
3475 
347b 
3477 
3H78 
347S 
3480 
3481 
3482 
3483 
3484 
3485 
3488 
3487 
3488 
348«3 
3490 
3481 
34S2 
3493 
34«H 
3495 
34% 
3497 
3498 
3499 



013b3b 
013644 



013646 
013654 

013666 



013674 
013700 

013704 
013712 

013714 
013722 
01372H 
013732 
013734 

013742 
0137% 
013752 
013756 
013762 
013766 
013772 



013774 
014000 
014002 

014006 
014012 



032777 
001417 

032737 
001054 

8oioi2 

052737 

005262 
104421 

032777 
001417 

032737 
001031 
042737 
001027 
0S2737 

005262 
104421 
104421 
004737 
004737 
004737 
104021 



022704 
001002 
004737 

000137 
000137 



000001 165354 



000001 

000001 

000001 

001632 
002070 



000002 

000002 

000002 

001652 
002076 
002120 
021736 
022064 
022226 



000004 

017110 

014160 
014216 



001474 
001474 
001474 



SFTERR: BIT 
BEQ 



BIT 
BNE 

I£ 
NE 

BIS 



000002 165306 IS: 



001474 
001474 
001474 



2S: 



INC 

TYPMSG 

BIT 
BEQ 

BIT 
BNE 
SIC 
BNE 
BIS 

INC 

TYPflSG 

TYPMSG 

JSR 

JSR 

JSR 

ERROR 



CMP 
BNE 
JSR 



3S: 
4S: 



JMP 
JMP 



•UCE.aRKER 
IS 

IBITO.ERCOOE 
3S 

•|lTO,ERCOOE 

•BITO.ERCODE 

UCECN(R2) 
,HSG2 

•CSE.SRKER 
2S 

IBITI.ERCOOE 
3$ 

IBIT1,ERC00E 
4S 

VBITl.ERCOOC 

CSECN(R2) 
,MSG3 

!msg5 

PC.TYPFN 
PC.GETINF 
PC GTSDRV 
21 



«4,R4 
3$ 

PC.DflTCHK 

CMNERR 
CMNflBT 



; THERE WPS ft SOFT ERROR 
;WCE' 

: ALREADY WORKING ON A UC ERROR' 

YES - IGNORE THIS ONE 
;ANY OTHER ERRORS 

YES - ABORT THIS FUNCTION 
•SET THE UC ERROR BIT 

: INCREMENT UCE COUNT FOR 
•THIS DRIVE 

;CSE' 

: ALREADY UORKING ON A CS ERROR'' 

YES - IGNORE THIS ONE 

ANY OTHER ERROR' 

YES - ABORT THIS FUNCTION 
•SET THE CS ERROR BIT 

;INCREnENT CSE COUNT FOR THIS DRIVE 

;G0 TYPE OUT THE FUNCTION THAT GAVE ERROR 

;SAVE DRIVE I, FOR TYPING SERiAL i 
SOFT ERROR ON PERF0i%J1i;i(i A ChTA 
TRANSFER RKDA PRINTED CUT Ifv ERROR 
MESSAGE IS BROKEN DOUN INTO DR^-E 1. 
CYL I SEC 1. SUR • 

|UAS IT A READ FUNCTION' 

:G0 CHECK THE DATA READ 



NOb 
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3S00 



3503 

3504 014016 

3505 014024 



01402S 
014034 
014036 
014044 
0140% 



3508 
350S 
3510 
3511 
3512 
3513 
3514 
3515 
351b 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
353b 
3537 
3538 
353S 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 



014054 
014080 



032777 
001421 

032737 
001051 
042737 
001064 
052737 

005262 
005262 



014064 104421 



014070 
014076 

014100 
014106 
014110 
014116 
014120 

01412b 
014132 

01413b 
014142 



01414b 
014152 
01415b 

014160 
014164 
014172 

014174 
014202 
014210 
014214 

014216 
014222 
014226 
014232 
014240 
014242 
014244 
014250 
014252 



032777 
001417 

032737 
001024 
042737 
001037 
052737 

005262 
104421 

104421 
004737 



004737 
004737 
104022 

105261 
122761 
001411 

052777 
042777 
004737 
000002 

005037 
104421 
004737 
032777 
001416 
104416 
010137 
000241 
006037 



001474 
002532 
014426 
010000 



001502 
001502 



THERL 
!ROR DOR 
PNSFEI 




010000 


165174 


HROERR: 


8IT 
8EQ 


•SKE,3RKER 
IS 


;SKE' 


000004 
000004 
000004 


001474 
001474 
001474 




8IT 
8NE 
8IC 
BNE 
BIS 


•BIT2.ERC0DE 
CNNERR 
•BIT2.ERC0DE 
CNNPBt 
•BIT2, ERCOOE 


:nLREPDY UORKING ON R SK ERROR'' 
:YES - IGNORE THIS ONE 

ANY OTHER ERROR' 

YES - ABORT THIS FUNCTION 
;SET THE SK ERROR BIT 


001602 
001562 






INC 
INC 


SKECN(R2) 
HECN(R2) 


; INCREMENT COUNT FOR SKE 
;0N THIS DRIVE. 


002062 






TYPMSG 


,nSGl 




167740 


165122 


IS: 


BIT 
BEQ 


•167740, aRKER 
2S 


;RNY HE BESIDES SKE' 


000010 
000010 
000010 


001474 
001474 
001474 




BIT 
BNE 
BIC 
BNE 
BIS 


•BIT3.ERC0DE 

cmERft 

•BIT3.ERC0DE 
CNNABt 

•BIT3, ERCOOE 


; ALREADY UORKING ON A HE ERROR? 

YES - IGNORE THIS ONE 

ANY OTHER ERROR' 
:YES - ABORT THIS FUNCTION 
•SET THE HE ERROR BIT 


001562 
002104 






INC 

TYPMSG 


HECN(R2} 
,nSG4 


{INCREMENT HE COUNT FOR 
jTHIS DRIVE 


002120 
021736 




2S: 


TYPMSG 
JSR 


.MSGS 
PC.TYPFN 


; PRINT 'ON DOING' 
GO PRINT OUT THE FUNCTION 
;UHICH GAVE THIS ERROR 


022064 
022226 






JSR 
JSR 
ERROR 


PCGETINF 
PC GTSDRV 
22 


:SAVE DRIVE 1. FOR TYPING SERIAL « 
•HARD ERROR ON DOING DATA XFER 


001446 
000003 


001446 


CMNERR: 


INCB 
CMPB 
BEQ 


RETRY(Rl) 
•3. RETRY (Rl) 
CnAfflT 


; INCREMENT RETRY COUNT 
3 TRIES IN ALL' 
•YES, ABORT THIS FUNCTION 


010000 
000020 
016006 


165334 
165326 




BIS 
BIC 
JSR 
RTI 


•BIT12.aSflVKEY 
•BIT4.tlSRVKEY 

pc.clAerr 


: INDICATE HIGH PRIORITY ON RETRY 
CLEAR 'POSITIONING HEADS'. IF SET 
CLEAR THIS ERROR 



CMNABT: 



164760 



CLR 

TYPMSG 
JSR 
BIT 
BEQ 



ERCOOE 
.MSG27 
^C.DRVABT 
lSi!;E,SRKER 
3S 



CON. RESET 
MOV Rl.QDRV 

CLC 

ROR QOhV 



CLEAR ERROR CODE 

ABORT THE FUNCTION 

SEEK ERROR' 

NO 

RESET THE CONTROLLER 

SET DRIVE NUMBER 

CLEAR THE 'C BIT 

LEFT JUSTIFY DRIVE NUMBER 
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3556 OinaSb 006037 001502 

3557 014862 006037 X1502 

3558 014266 006037 001502 

3559 014272 10MM20 

3560 C1427M 10M416 

3561 : 14276 000002 



3S: 



ROR OORV 
ROR QORV 
ROR QORV 
DRV. RESET 
CON. RESET 
RTI 
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LEFT JUSTIFY DRIVE NUTBEP 

LEFT Justify drive number 

LEFT justify DRIVE NUMBER 
RESET THE DRIVE 
RESET THE CONTROLLER 
THIS DATA TRANSFER 
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3Sb2 
35b3 
3564 
3S6S 
3S66 
35b7 
3588 
35&<3 
3570 
3571 
3572 
3573 
357M 
3575 
3576 
0-77 
3578 
3573 
3580 
3581 
3582 
3583 
358M 
3585 
358b 
3587 
3568 

35es 

3590 
3591 
3592 
3593 
3594 
3595 
35% 
3597 
3596 
3599 
3b00 
3601 
3b02 
3b03 
3&0M 
3&05 
3&0& 



014300 


105761 


001446 




ont unc> 
uui~uo 




Ui'tJUb 










01431fe 


104403 




Ui~JCU 


nn? 




014321 


000 






UUSUOr 




014326 


105061 


0014% 


014332 


042777 


010000 165176 


0143MO 


0QH737 


021006 


014344 


022704 


000004 


014350 


001002 




014352 


004737 


017110 



014356 
014362 
014364 
014372 
01437M 



022704 
001011 
032777 
001412 
052703 



000002 
000040 
100000 



014400 010337 001456 



014404 000407 



014406 
014412 
014414 

014420 
Q14«24 



022704 
001002 
005037 

052710 
000002 



000006 
001456 
100000 



NOEROR: 



IS: 



2S: 



165144 



3S: 



41: 
5S: 



TST8 
BEQ 

TYPI1SG 
nOVB 
TYPOS 
• BYTE 
.BYTE 

CLR 
CLRB 
BIC 
JSR 



CflF 
BNE 
JSR 



cnp 

Bf€ 
BIT 
BEQ 
BIS 



MOV 



BR 



cnp 

BNE 

CLR 

BIS 
PTI 



RETRY(Rl) 
IS 

.nsG2a 

AETRY(R1),-(SP) 

2 
0 

ERCOOE 
RETRY (Rl) 
iBIT12.aSflVKEY 
PC.STfltSTC 



14, R4 
2S 

PC.DflTCHK 



•2.R4 
3S 

•BITS.SSAVKEY 
4S 

tBITlS,R3 



;IF THERE WAS NO HARD OR 
;S0FT ERROR ON uflTfl TRfiNSFEP 
; ENTER HERE 



R3.WCFLG 



5S 



•&,R4 
4$ 

UCFLG 

teiTlS.i'RO) 



; CLEAR PRIORITY BIT IF SET 
GO^ COLLECT STATISTICS ON THIS 
lOfltA TRANSFER 

:UAS IT A 'READ' FUNCTION' 

;IF IT UAS 'READ', CHECK THE DA^A 

:UAS IT A 'HRITE' FUNCTION" 

IS 'URT CHK* TO FOLLOW THIS 

•URT' FUNCTION' 

SET FLAG BIT TO irCICATE 

THAT URITE CHECK SHOULD 

FOUO« THIS WRITE 

SET UP MC FLAG TO INDICATE 

T« ABOVE. T« LOMER BYTE 

CONTAINS T« POINTER TO THE 

CONHATO LIST, UHICH UILL 

BE USED. FOR DOING URITE CHECK 

IF URIT^ C«CK IS TO BE DOfC, DCN^ 

SET BIT 15 OF THE KEY TILL l*T CHK 

IS DONE 

;URT CHK FUNCTION- 

: CLEAR UR CHK FLAG 

:5ET FLAG TO INDICATE THIS 
•FUNCTION IS CONPLETED 
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3bor 

3&08 
3bOS 
3610 

3bii 014M26 Oi02% DRVflBT: MOV 

3bi2 0iHM30 lOSObl 0014% CLRB 

3613 OIHMSS 0S2710 104000 BIS 

361M 014HH0 042710 010000 BIC 

3615 014444 010102 nOV 

361b 014446 006302 ASL 

3617 014450 005262 001672 INC 

3618 014454 026227 001672 OJOOlO CMP 
361<3 014462 003402 BLE 

3620 014464 000137 016312 , JMP 

3621 014470 012602 11: MOV 

3622 014472 104401 002165 TYPE 

3623 014476 000207 RT5 
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R2.-(SP) 
RETRY (Rl) 
•104000, (RO) 
•BIT12,!rQ) 
R1,R2 
R2 

ABORT (R2) 
AB0RT(R2),»10 
IS 

DSELCT 
(SP)*.R2 
.MSGlfi 
^C 



;«BORT THE FUNCTION ON DRIVE POINTED TO B< Ci 

; CLEAR ASSOCIATED FLAGS 

;DROP THE DRIVE IF MORE THAN 8. ABORTS 

;5AVE R2 

; INDICATE THAT FUNCTION IS ABORTED 
;CLEAR HIGH PRIORITY BIT IF SET 



DROP THE DRIVE 
RESTORE R2 
TYPE "ABORTED- 
RETURN 
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UCC' u~ 














rnP777 


nnnunn 

UUUiUU 






UUi~CC 




J03U 




013777 


nnnnn i 

UUUUUi 


'X.s t 
Jcai 




nnt u t n 

UUi~iU 




ICC? 
J03C 


ntu^n? 


nnc7?7 








rmnnnn 




JD9~ 




nntnn 

UUlUid 




Jo 39 


ntu(tin 




Ui~DU~ 






IXTTf df 


ucooou 




Ui iDCU 


UUUiLTO 






Ui tDCC 


LAJ3UW' 


U A iDU ( 


JD9 J 


Ui iDCO 


inuuni 

iUiiUi 


UUiCi«3 


>9DOU 


Ui^DJC 


nnM7T7 

UUif Jf 


UCii iO 


JDOi 


niufi% 


fn?777 

U<3C' f 1 


UUUU iU 


JPOC 


Ui lU ■ ■ 


UWi lUi 






ni'if .'If. 

Ui lU lU 


UUUUUU 














Ui iD«9w 






*3000 


Ui iQ3 T 


UiCf uu 


no I infi 

UUiJUD 




mudCin 

Ui^OOU 


UiUUVl 




•.30D0 


Ui^DOC 








u i TWO 1 


UiUiCU 




JDr U 


Ui^DOO 


UDC' Ui 


nnnynn 
uuu~uu 


JOf I 


Ui iO' c 


UCC/Ui 


nnunnn 

Uu~UUU 


OOf c 


Ui iDf D 


UUiJ' c 




3{j73 




0127tM 


001326 


3t7M 


014704 


010005 




3fc75 


014706 


012701 


177740 


3678 


014712 


005020 




3&77 


014714 


005201 




3fc78 


0H716 


001375 




3fc79 









THIS ROUTINE GENERATES THE 8 CQHHANQ REQUESTS AND PUT THEM IN THE QUEUE. THE 
FOLLOWING PARAMETERS ARE GENERATED RANDOMLY: 

1. DRIVE NUMBER ON WHICH THE COMMAND WILL BE PERFORMED. 

2. FUNCTION TO BE PERFORI€D. 

3. DISK ADDRESS - CYLINDER, SURFACE, SECTOR. 

4. STARTING BUS ADDRESS. 

5. WORD COUNT FOR DATA TRANSFER. 

:THE QUEUE IS LOCATED AT 'CMND' (TO 'CMND8'). 



002056 



GEN8RQ: CKSWR 
DEC 
BNE 
MOV 
TYPE 
BR 

.ASCIZ 



164350 IS: 
164340 

7S: 
8S: 

164274 2S: 



3S: 
4J: 



5S: 



6S: 



MOV 

INC 

TYPDS 

JSR 

JMP 

BIT 

BEQ 

BIT 

BEQ 

TST 

.WORD 

BNE 

INC 

JSR 

BR 

CLR 

TYPE 

JSR 

BIT 

BEQ 

HALT 

JSR 
MOV 
MOV 
CLR 
MOV 
ADO 
CMP 
BNE 
MOV 
MOV 
MOV 
CLR 
INC 
BNE 



REPCNT 
IS 

PCNTR, REPCNT 

-^5S 
64S 



<15><12>/EN0 OF WSS/ 

$PASS,-(SP) 
(SP) 

pc.repstat 
se6p 



DECREMENT REPETITION COUNT 
CONTrnJE IF NOT 0 

REESTABLISH REPETITION COUNT FOR EXERCISER 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



•SU8.3SWR 
2S 

•swoo.asuR 

8S 

(PC) + 
0 

2S 
7$ 

PC.TIMTYP 

2$ 

7S 

.SCRLF 

?»C,REPSTAT 

i5te,3SWR 

as 



PC.CHDPRS 
iKfeY.RO 

ro,r4 

R' 

Rl.CRO)* 
•400. Rl 
•4000, Rl 
5S 

ICMN0,R0 

R0,R5 

i-40,Rl 

(R0) + 

Rl 

6S 



SWITCH 0 SET ' 

BR IF NOT 

CHECK INDICATOR 

TYPE TIME INDICATOR 

BR IF TIME ALREADY TYPED 

INCREMENT THE INDICATOR 

TYPE THE TIME (IF SWR 03 SE' 

CONTINUE 

CLEAR THE INDICATOR 



;HALT' 
:N0 

•YES, PRESSING CONTINUE RESUMES PROG EXEC-TICfl 
; CHECK IF ANY DRIVES PRESENT 



: CLEAR THE 8 COMMAND KEYS 
BITS 8.9,10 INDICATE THEIR 
;P0SITI6n 0.1,2.3,4,5.6.7 

•.CLEAR THE PARAMETER TABLE 

:FOR THE 8 COMMANDS IN Q 
;(8X4) WORDS IN ALL 



10-ii-DZRkHG. RKil-RK05 PERFORMANCE EXERCISER fIflCYll 
OZRKHG.Pll 25-APR-77 10:18 EXERCISER PROGf 



3680 014720 004-37 015770 



014724 022737 000001 0012b4 GENl: 

014732 001002 

01473M OOSOOO 

014736 000420 

014740 0Q4737 025576 



3683 

3684 

368S 

3686 

3687 

3688 

368S 

3690 

3691 

3692 

3693 

3694 

3695 

36% 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

372S 

3726 

3727 

3728 

3729 

37X 

3731 

3732 

3733 

3734 

273S 



22S: 



014744 025730 



0147% 
014752 

014754 
014760 
014764 

014766 
014770 
014774 
014776 
015000 
015004 
015012 
015016 

015020 
015026 
015034 

015036 
015042 
015044 

015046 
015052 

015054 
015060 

015062 
015066 

015070 
015074 
015100 

015102 
015106 
015110 
015112 



013746 025732 
0050% 

013746 001520 
004737 025212 
005726 

012600 

020037 001264 

001001 

005300 

005037 001502 
116037 001254 001502 
105737 M1502 
100016 

142737 000200 001502 
132737 000001 001502 
001404 

005737 015724 

001730 

000403 



3S: 



005737 
001332 

004737 
025734 

013746 
005046 

013746 
004737 
005726 

021627 
001001 
005316 
012637 



ClSllb 004737 



015724 
025576 
0257:i6 



001526 
025212 



000003 

001512 
025576 



31S: 
32S: 



20S: 



JSR 



CMP 

BNE 

CLR 

BR 

JSR 



MOV 
CLR 

MOV 
JSR 
TST 

MOV 

CMP 

BNE 

DEC 

CLR 

MOVB 

TSTB 

BPL 

BICB 
BITB 
BEQ 

TST 
BEO 
BR 

TST 
BNE 



MOV 
CLR 

MOV 
JSR 
TST 

CMP 
BNE 
DEC 
MOV 

JSR 



30(1046) 
)AM 



Ob-JUN-77 



14:55 PACE 83 



PC, CLRFLCS 



•l.DRVPRS 

22i 

RO 

3S 

PC.SRAND 



CLEftR THE FLAGS 
COMMfiNDf 



PERTAINING TO THE 8 
0 



R4 CONTAINS 'KEY 
R5 CONTAINS 'CMND' 
ONLY 1 DRV PRESENT' 
NO 
YES 

GENERATE A RANDOM NUMBER 
GET A RANDOM DRIVE NUMBER 
FROM THE AVAILABLE DRIVES 



RSDRVH,-(SP) 
-(SP) 

DRMfiP.-(SP) 

pc.aitoiv 

(SP)*,RO 

RO.DRVPRS 

3S 

RO 

ODRV 

PDR(RO),QORV 

QORV 

32S 

•200.(iORV 

•i.o6rv 

3lt 

OODEVN 

GENl 

32S 

OODEVN 
2SS 

PC.SRAND 



;PUT LOW DIVIDEND ON STACK 
CLEAR HIGH DIVIDEND AND PUSH 

; IT ON STACK 
PUSH DIVISOR ON STACK 
GO TO THE 'DIVIDE* SUBROUTINE 
DISCARD THE REMAINDER. QUOTIENT IS 

•NOU ON TOP OF THE STACK 

;MAKE SURE CORRECT MAPPING IS DONE 
;'ODRVE' CONTAINS RANDOM DRIVE f<C. 

jTEST IF TYPE F DP WE 
■NOT IF POSITIVE 

: CLEAR THE FLAG BIT 

;00D OR EVEN DRIVE ADDRESS 

:MUST HAVE BEEN AN ODD ONE 
: INSURE THAT ODDS UHAT UE UANT 



;HUST HAVE BEEN -AN EVEN ONE 
•NO GOOD - TRY AGAIN 

; GENERATE A RANOON NUMBER 



RSFUNH,-(SP) 
-(SP) 

FNMAP.-(SP) 

pc.aitoiv 

(SP) + 

(SP),I3 
20S 

(SP) 

(SP)*,QFNC 
PC.JPAND 



PUT LOW DIVIDEND ON STACK 

CLEAR HIGH DIVIDEND AND PUSH 

IT ON STACK 

PUSH DIVISOR ON STACK 

GO TO THE 'DIVIDE' SUBROUTINE 

DISCARD THE REMAINDER. QUOTIENT IS 

NOW ON TOP OF THE STACK 

MAKE SURE CORRECT FUNCTION IS SELCTD 



;THE FUNCTION THAT CAN BE PERFORMED 
: GENERATE A RANDOM NUMBER 



1D-11-DZRKHC. RK11-RKQ5 PERFORflANCE EXERCISER ^MACYU 30(1046) Ob-JUN-77 

::rkhc.pii ss-fin-T? liSria exerciser progrwi 
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3736 
3737 
3738 
373<9 
3740 
3741 
3742 
3743 
3744 
3745 
37% 
3747 
3748 
374*3 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
376S 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
378<3 
57% 
2791 



015122 


025740 








rscyll 




015124 
015130 


013746 
0050% 


025742 






nov 
clr 


R5CYLri,-(5P) 
-(SP) 


015132 
015136 
015142 


0137% 
004737 
005726 


001522 
025212 






nov 
jsr 

TST 


CYLnfiP.-(5P) 

pc,art6iv 

(SP)* 


015144 
015150 
015156 
015160 


012637 
022737 
001002 
005337 


001504 
X0313 

001504 


001504 




flOV 
CflP 
BNE 
DEC 


(SP)+.OCYL 

•313,6CYL 

4J 

QCYL 


015164 








41: 






015164 
015170 


0137% 
0050% 


025742 






flOV 
CLR 


RSCYLH,-(SP) 
-(SP) 


015172 
015176 
015202 


0137% 
004737 
005726 


001524 
025212 






nov 

JSR 
TST 


SEcnfiP.-(SP) 
pc.aisoiv 

(S^) + 


015204 
015210 
015216 
015220 


012637 
022737 
X1002 
005337 


001510 
000014 

001510 


001510 




nov 

CMP 
SNE 
DEC 


(5P)+.0SEC 
•14,Q§EC 
5S 
QSEC 


Ulbcci 

015232 
015234 


Ucc7d/ 
101005 

012737 


\it f { 1 f 
000020 


001506 


ce- 
ss. 


CMP 

BHI 
MOV 


177777 .7SCYLH 
6S 

•BIT4,0SUR 


015244 


000404 








CLR 
BR 


Rl 
7S 


015246 
015252 


005037 
012701 


001506 
000014 




6S: 


CLR 
flOV 


OSUR 
114. Rl 



PUT LOU DIVIDEND OM STACK 

CLEAR HIGH DIVIDEND AND PUSH 

IT ON STACK 

PUSH DIVISOR ON STACK 

CO TO THE 'DIVIDE' SUBROUTINE 

DISCARD THE RENAINOER. QUOTIENT IS 

NOU ON TOP OF THE STACK 

(FROn 0-312) 



j'QCYL' CONTAINS RANDOn CYLINDER NC. 



PUT LOW DIVIDEND ON STACK 

CLEAR HIGH DIVIObND AND PUSH 

IT ON STACK 

PUSH DIVISOR ON STACK 

GO TO THE 'DIVIDE' SUBROUTINE 

DISCARD THE REMAINDER. (JUOTIEN"^ IS 

NOW ON TOP OF THE STACK 

(BETWEEN 0-13/8) 



;'QSEC' CONTAINS RANDON SEC I 
: SELECT SURFACE I RANDOMLY 
'SURFACE 1 

|R1 CONTAINS THE MflXH WORD COUNT BASED CN 
AVAILABLE DISK SPACE. _ , _ 
R2 CONTAINS THE MflXH WORD COUNT BASED ON 
AVAILABLE MEMORY SPACE. 



; SURFACE 0 

1 14 SECTORS ON SUR 0 



015256 023727 001504 

015264 002003 

015266 012701 177777 

015272 000431 



015274 012700 000014 
Q15300 163700 001510 
015304 060001 



000306 



•ASSUMING imJ ENOUGH MEMORY IS AVAILABLE THE MAXIMUM TRANSFER THAT CAN 
•TAKE PLACE IS loKWOROsVlF THE RANDOM CYLINDER •> OR = TO 307 AND THE 
•SURFACE IS l7 CHANCES ARE THAT THE NUMBER OF WORDS TO BE TRANSFERRED ?1fi>^ 
^BEgSaTER T^lflNT* SPACE AVAILABLE ON THE DISK. IN THAT CASE, THE ^UORDS 
iCOUlS IS TO BE SELECTED IN SUCH AWAY THAT THIS OVERFLOW DOES n6t OCCUR. 

;IS THE RANDOM CYL i GREATER THAN 306'' 



7J: 
8S: 

9S: 



CMP 
BGE 
MOV 
BR 



nov 

SUB 
ADD 



QCYL, 1306 
91 

1177777, Rl 
21S 



•14. RO 

QSEt.RQ 

ro.rI 



;IF YES. HAKE SURE THAT THE 
WORD C6UNT IS SELECTED PROPERLY 
COMPUTE MAXn WORD COUNT BASED ON 

; AVAILABLE DISK SPACE ^ , 

COMPUTE • OF SECTORS AVAIuABLE ON 

: CYLINDERS SELECTED 



lOHb) 



h07 

Ob-JL'N-77 
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015306 


012703 


000312 


3rs3 


015312 


163703 


001 504 


379M 


015316 


012746 


000030 


3795 


015322 


010346 




37% 


015324 


004?37 


025100 


37S7 


0153X 


012616 




37<38 




012603 




379S 


Si^3§4 


060103 




3800 


015336 


0127% 


000400 


3801 


015342 


0103% 




3802 


015344 


004737 


025100 


3803 


015350 


012616 




3804 


015352 


012603 




380S 


0153S4 


010301 




380& 








3807 








3808 








380<3 








3810 


015356 


004737 


025576 


3811 


015362 


025744 




3812 








3813 


015364 


013746 


0257% 


3814 


015370 


005046 




3815 








381& 


015372 


0137% 


001530 


3817 


015376 


004737 


025212 


3818 


0154G2 


005726 




38ig 








3820 


015404 


012637 
006337 


001514 


3821 


015410 


001514 


3822 


015414 


063737 


002052 


3823 








3824 








3825 


015422 


013703 


002054 


382fc 


015426 


163703 


001514 


3827 


015432 


000241 




3828 


015434 


006003 




3829 


015436 


010302 




3830 








3831 


015440 


020201 




3832 


015442 


103401 




3833 








3834 


015444 


010103 




3835 








383E> 








3837 








3838 








383S 


0154% 






3840 








3841 


015446 


012746 


177777 


3842 


015452 


0050% 




3843 








3844 


015454 


010346 




3845 


015456 


004737 


025212 


384fc 


015462 


005726 




2847 









21S: 



lOS: 



IIS: 



MOV 
SUB 
MOV 
MOV 
JSR 
MOV 
MOV 
POD 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 



JSR 
RSBAL 

MOV 
CLR 

MOV 
JSR 
TST 

MOV 
ASL 
ADD 



MOV 
SUB 
CLC 
ROR 
MOV 

CMP 

BLC 

MOV 



MOV 
CLR 

MOV 
JSR 
TST 



1312, R3 
0CYL;R3 
130, -(SPi 
R3,-(SP) 
PClaiSMULT 

(SP)*. (SP) 

(SP)*,R3 

R1.R3 

•460, -(SP) 

R3,-(SP) 

PC.aiSMULT 

(SP)*, (SP) 

(SP)*,R3 

R3.R1 



PC.SRfiND 

RSBfiH.-(SP) 
-(5P) 

BfiMAP.-(SP) 

pc.attoiv 

(SP)* 

(SP) +.080500 
QBUSOO 

BA5EBA,0BU5AD 



MflXBfi.R3 
QBUSa6,R3 

R3 

R3,R2 



R2.Ri 
Hi 

R1.R3 



•177777, -(SP) 
-(SP) 

R3.-(SP) 
PC.3I5DIV 

(Sp) + 



S AVA 
R S£L£ 



LE 



: COMPUTE I OF SECT 
; BEYOND THE CYL ' 

;;PUT THE HULTIPLER Oti THE STAC/ 
i^PUT THE MULTIPLlCfiNO ON THE 5"AC' 
;;CALL T^t HULTPLY ROUTINE 
;; DISREGARD THE MSB'S 

;:G£T THE LSS'S OF THE PPODUC ' 
; COMPUTE tOTAL • OF^CTORS AVAILABLE 

;;PUT THE HULTIPLER ON THE STACK 
: :PUT THE MULTIPLICAND ON THE S^ACK 
:CALL HULTPLY ROUTINE 
;DISRE(WRO THE MSB'S 

::(XT THE LSB'S OF THE PROOUC^ 
COMPUTE tOTAL • OF UORDS-SPACE 
AVAILABLE ON DISK FROM THE SELECTED 
CYL • 

COMPUTE HAXH WORD COUNT BASED ON 
AVAILABLE MEMORY SPACE. 
(GENERATE RANDOM NUMBER 

PUT LOU DIVIDEND ON STACK 

CLEAR HIGH DIVIDEND AND PUSH 

IT ON STACK 

PUSH DIVISOR ON STACK 

GO TO THE 'DIVIDE' SUBROUTINE 

DISCARD THE REMAINDER. OUOTIEN^ 15 

NOW ON TOP OF THE STACK 

BE USED 

FORM THE RANDOM BUS-ADDRESS 
BY ADDING RflNDOH OFFSET TO 
THE BASE BUS-AODRESS 
COMPUTE i OF U0RD3 THAT 
CAN BE TRANSFERRED, USING THE 

: ABOVE GENERATED BUS-AODRESS wrhOLT 
•CAUSING A NXM 

{SELECT SMALLER OF THE TWO 
; WORD-COUNTS THAT WILL BE 
USED FOR GENERATING A RANDOM 
I WORD COUNT) 

;R3 CONTAINS THE MAXM WORD COUNT 
; POSSIBLE. COMPUTE THE WORD COUNT 
MAPPING FACTOR FROM THIS. 



:PUT LOW DIVIDEND ON STACK 
: CLEAR HIGH DIVIDEND AND PUSH 
IT ON STACK 

:PUSh DIVISOR ON STACK 
;G0 TO THE 'DIVIDE' SUBROUTINE 
.•DISCARD THE REMAINDER. QUOTIEJi' IS 
;NOW ON TOP OF THE STACK 



IQ7 





Pll £ 




3848 




UU9C 1 D 




38MS 
3850 
3851 


015466 


UiCoJ' 


UUiSOC 


015472 




□25576 


385^ 


015476 






3853 








385M 


015500 


n 1 '37<4(> 
UXO' ^ 


UC3' PC 


3855 


015504 






3856 








3857 


015506 


Ui J> 


UUi30C 


3858 


015512 




UC3C IC 


3859 


015516 


UU3' CO 




38b0 








3861 


015520 


ni 3t.^7 

UiCOJ/ 




3862 








3863 


015524 


nn«;7'?7 


□□1516 


3864 


015530 


QfW004 




3865 


015532 


no*;437 


□ni5iEi 


3866 


015536 


nnQ?'?7 

Uu9C<3f 




3867 


015542 


1 i«3r UU 


nnmnp 

LIUiSUC 


3866 


0155% 






3869 


015550 


nnf>mn 




3870 


015552 






3871 


015554 






3872 


015556 


nrVtnnn 

UUOUiJU 




3873 


015560 


Ul wr Ui 




3874 


015564 


UUvMUi 




3875 


015566 


nnn?4i 




3876 


015570 


nntnn i 

UUDUUi 




3877 


015572 


nrvxint 




3878 


015574 


□Q6ml 




3879 


015576 


Q5D1QD 




3880 


015600 


053700 


001510 


3881 


015604 




□□1506 


3882 


015610 


□10025 




3883 








Joa4 








3885 








3886 


015612 


n??737 

UCCf Or 


nnnnoi 


3887 


015620 






3888 


P15622 


UwO*JA~ 




3889 


015624 


n 1 P7?5 

UiC' 


□□□□□? 


3890 


015630 


023727 


025752 


3891 


015636 


ininio 




3892 


ni5640 


n(;?7i4 

U3C' 1~ 


□□□□4Q 


3893 








3894 








3895 


015644 






38% 








3897 


015646 




000004 


3898 


015652 


□00402 




3899 








3900 


015654 


012725 


000012 


3901 








3902 


015660 


013715 


001516 


3903 


015664 


005425 
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12$: 



IS: 



25: 

141: 
15X: 



INC 
flOV 

JSR 
RSUCL 

nov 

CLR 

MOV 
JSR 
T5T 

nov 

TST 

BGT 

NEC 

INC 

nOVB 

CLC 

ROR 

ROR 

ROR 

ROR 

MOV 

SUAB 

CLC 

ROR 

ROR 

ROR 

BIS 

BIS 

BIS 

HOV 



CflP 
BEQ 
BGT 
flOV 
CMP 
BHI 
BIS 



BR 

MOV 
BR 

MOV 

HOV 
NEC 



(SP) 

(SP)*,WCMfiP 
PC.JRflND 



RSUCH,-(SP) 
-(SP) 

WCMflP.-(SP) 

pc.aiioiv 

(S^)+ 

(SP)*,QWRCNT 

QURCNT 
12S 

QURCNT 
QURCNT 
QORV.RO 

RO 
RO 
RO 
RO 

QCYL,R1 
Rl 

Rl 
Rl 
Rl 

Rl.RO 
QSEC.RO 

qsur!ro 

R0,(R5)4' 



•l.QFNC 

2S 

14S 

•2,(R5)+ 
RSClCH, §77777 

15S 

iBIT5,(R4) 



15$ 

«4-(R5)+ 

isi 

■12,(R5)+ 

QURCNT, (R5) 
(R5) + 



:U0RD COUNT MAPPING FACTCP 
-.GENERATE A RANDOM NUMBER 



PUT LOU DIVIDEND ON STACK 

CLEAR HIGH DIVIDEND AND PUSH 

IT ON STACK 

PUSH DIVISOR ON STACK 

GO TO THE 'DIVIDE' SUBROUTINE 

DISCARD THE REMAINDER. QUOTIENT IS 

NOU ON TOP OF THE STACK 

'QURCNT' CONTAINS THE RANDOM 

UORD COUNT THAT UILL BE USED 

MAKE SURE THE UORD COUNT IS 

NOT 0 

TAKE CARE OF ZERO AND NtG NMBP5 



; POSITION THE DRIVE NUMBER IN 
;BITS 15.14,13 



•.POSITION THE CYLINDER NUMBER 
;IN BITS 12-5 

RO CONTAINS THE COMPLETE DISK 

I^f^RKDA IN THE PARAMETER TABlE 

(FOR THE 8 COMMANDS) 

UHICH FUNCTION? 

O-REAO CHECK, 1-REAO, 2-URITE 

READ 

READ CHECK 

URITE FUNCTION CODE 

SHOULD URITE CHECK BE DONE 

AFTER THE URITE' 

SET FLAG IN KEY TO INDICATE 

THAT URITE CHECK SHOULD BE 

DONE FOLLOUING THE URITE 



:REAO FUNCTION CODE 

;READ CHECK FUNCTION CODE 

; INSERT THE UORD COUNT (RkUC) 
i (2"S COMPLEMENT! 



015&6b 01372S 001514 



mK£ EXERi 



3908 



)1( 
3S11 
3S12 
3913 
3914 
3915 
391& 
3917 
3918 
3919 



015672 

015S7S 

015702 
015704 



015710 
015714 
C15722 



053724 

020427 

001402 
000137 



005237 
042737 
000207 



001502 
00132(1 

014724 



015724 
17777b 
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IbS: 



015724 



171: 



MOV 
815 

CUP 

BEQ 
JMP 



INC 
BIC 
RTS 



Q8USAD,(R5)^ 

Q0RV,(R4)* 
R4,IKEY^20 

171 
GENl 



ODDEVN 

•17777b, ODDEVN 
PC 



015724 000000 



ODDEVN: 0 



INSERT THE 8U5 ADDRESS (RKBA) FCP 
COMflflND IN THE PftRAHETER 



DRIVE NUMBER INSIDE 
THE KEY FOR THIS COMMAND 
GENERATED B COMHANOS IN 
THE QUEUE' 

IF NOT, GO BACK AND GENERATE 
THE NE^T COMMAND AND THE 
PARAMETERS (RKUC. 6A, OA) 
CHANGE FROM ODD/ENEN TO EVEN/OUD 
KEEP ONLY ONE BIT 
ALL 8 COMMANDS HAVE BEEN 
GENERATED IN THE TASK-QUEUE 



10%) 



k07 
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3S22 
3S23 



3927 



0157% 004737 OlbOOb 



3930 
3<331 

m 

3S34 
3S35 
3938 
3937 
3938 
3939 
39M0 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 



015732 
015734 
015740 
0157M4 
015750 
015752 
015754 

Q157bQ 
015764 



015770 
015774 
015776 
016002 
016004 



010146 
012701 

012601 
004737 

012706 
000137 



012700 
005020 
020027 
001374 
000207 



001306 

m, 

015770 

001100 
010650 



001426 
001462 



; ENTER THIb CQDE Tr cy q hOS BEEN SET AND LOOPING HAS TO BE DONE ON ERROR 
•CONTROL IS ThSrirERREO TO THIS, ON RETURN FROM THE ERROR HANDLER 'lEPRCR'. 



EXCRLUP: JSR PC.CLRERR 



IS: 



MOV 

nov 

BNE 

nov 

JSR 

MOV 
JMP 



Rl.-(SP) 
•KEY.Rl 

IS 

(SP)*.R1 
PC.CLftFLGS 

•STACK, SP 
QMNGER 



; CLEAR OUT THE COffllAND-KEYS 

; REESTABLISH STACK POINTER 

START OVER AGAIN, PROCESS THE COWHANDS 

IN THE Q AGAIN. ^TE THAT ON LOOPING 
;(0N EROR. UITH SU 9) AN ATTEMPT IS MADE 

TO RECREATE THE SET OF EVENTS UHICh LED TO 

ERROR. 



:CLRFLGS 

;THIS ROUTINE CLEARS OUT THE VARIOUS FLAGS USED FOR THE 8 COMNANDS IN THE iUEUE. 



CLRFLGS: MOV 
IS: CLR 
CMP 
BNE 
RTS 



IBUSY.RO 
(RO)* 

RO.lQSCNT+2 

IS 

PC 



; CLEAR THE 8 BUSY FLAGS 

;ALL DONE' 
;N0 
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3952 



3%5 

3%£> 

3957 

3958 

3959 

3960 

3%1 

39b2 

3983 

3%M 

3%5 

39bb 

3%7 

3966 

3%9 

3970 

3971 

3972 

3973 

397H 

3975 

3976 

3977 

3978 

3979 

3980 

3961 

3982 

3983 

Jrlari 

3986 
3987 
3988 

JrSeri 

3990 
3991 
3992 
3993 
3994 
3995 
39% 
3997 
3998 
3999 



CLRERR 

THIS ROUTINE 
CLEftREu 

RDY BIT H«S SET. WHEN R/U/S IS SET. CHECKING IS DONE FOR ftNY ERROR 
ERROR OCCURED IT IS REPORTED. IF NOt. ftPPROPfllflTE FLftGS ORE SET AND 
CLEARED FOR THAT DRIVE. AFTeA ABOVE IS DONE FOR ALL DRIVES THAT HAVE BEEN 
SEEKING, A CONTROL RESET IS ISSUED TO CLEAR THE HARD ERROR. 



IS ENTERED U^CN A HARD ERROR HAS OCCURRED AND IT HAS TO BE 
THE DRIVES THAT HAVE BEEN BUSY ARE CHECKED TO SEE IF THEIR R/U/S 



016006 


010446 






CLRERR: 


NOV 


016010 


010546 








NOV 


016012 


005005 








CLn 


016014 


005077 


163210 






CLR 


016020 


105765 


001426 




li: 


TSTB 


016U2S 


100035 








BrL 


016026 


005037 


001472 






CLR 


UlbUJc 


032777 


nnn i nn 
OUUIUU 


IbJlbb 


ci: 


DTT 
Dl 1 


016040 


X1015 








BNE 


016042 


005237 


001472 






INC 


0160% 


001371 








BNE 


OlbObu 


004737 


022222 






TCD 

Jan 


016054 


104004 








ERROR 


016056 


032777 


001000 


163132 




BIT 


016064 


001403 








BEQ 


016066 


004737 


022222 






JSR 


016072 


104016 








ERROR 


016074 


116504 


001426 




3S: 


NOVB 


016100 


042704 


177760 






BIG 


016104 


062704 


001306 






ADD 


016110 


042714 


010000 






BIG 


016114 


105065 


001426 






GLRB 


016120 


ObZ777 


020000 


163102 


4$: 


ADD 


016126 


005205 








INC 


0161X 


022705 


000010 






GMP 


016134 


001331 








BNE 


016136 


004737 


020340 






JSR 


016142 


104416 








CON. RE 


016144 


012605 








NOV 


016146 


012604 








NOV 


016150 


000207 








RTS 



R4,-(SP) 
R5 -(SP) 
R5 

SRKDA 

BUSY(R5) 
41 

TIMER 

«RUS,3RKDS 
3S 

TIMER 
2S 

PC,RG4SDR 



«SIN,SRK0S 
3S 

PC,RG4SDR 
16 

BUSY(R5).R4 
i 1 77760, ft4 
•KEY,R4 ;BUSY 

•10000, (R4) 
BUSY(RS) 



•20000, SRKDA 
R5 

•10, R5 
IS 

PCCRCMND 
ET 

(SP)+,R5 
(SP)+,R4 
PC 



;SPVE R4, R4 ON THE STACK 



UAS THIS DRIVE BUSY SEEKING^ 
NO 

R/W/S SET' 
YES 

KEEP TIME 

WAIT FOR R/H/S ROY 

GET RKCS. ER, DS. DA AND DRIVE • FOR 

TYPING JlRIAt ORtvE • 

R/U/S READY DID NOT SET 

FOR THIS DRIVE. MITED LONG ENOUGH. 

SIN ERROR ON THIS ORIVE^ 

GET RKCS. ER, OS. OA AND DRIVE • FOQ 
TYPING SERIAL DRIVE • 
SIN OCCURED ON THIS DRIVE 

FORM THE ADDRESS OF THE 
KEY UHICH HAOC THIS DRIVE 



; CLEAR HIGH PRIORITY BIT, IF SET 
;MAKE THIS DRIVE FREE, AVAILABLE 

; ADDRESS THE NEXT POSSIBLE DRIVE 
INCREMENT COUNT 
;ALL DONE 
;N0 

;SAVE INFO ABOUT THE PAST S PRESENT COMANO 
; RESTORE R4.R5 
; RETURN 



mum''- mm imr^' '"'^mMM 
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unrm 








tUUc 
















unm 








umc 
fUUb 








HUUb 








unfY7 








urma 
lUUe 






IDJUSC 




nicies 




uni n 


n 1 Ct 1 c>n 

UXDiDU 




nicjinc, 


















un 1 ^ 


ni c> 1 cu 


ni "3777 


LHJi wiu 


un 1 u 


UXDX ' c 


nnu7'57 


n?n')m 


umc 


Ulbir D 


n 1 3777 


nnnnm 

UUUU13 


un 1 L. 








uni 7 








un 1 D 




1 nuui 7 




un 1 Q 

WIT 


UiDCUO 


nncn^7 

UU3UJ' 


rmi 147? 


unsn 


Uibcxc 


XXXf f f 


nnninn 




nii«P?n 

UiOCCU 


nninic 

UUiUiS 






n !(>??? 








ni C3?c 


nnt "571 




unsu 


ni cson 
UibcJU 


nnu7^7 


UcCcCC 


4025 








4026 


01&234 


104004 




un37 










U1DC«3Q 


m?777 






nift?UM 


nnmn.1 




unm 
uno 1 




nfm7'?7 

UU If 


UCCCCC 




nic>?QP 

UiDC3C 


1 nun 1 c. 




4033 








403H 








4035 








403E> 


01b254 


004737 


020340 


4037 


01b2b0 


10441b 




4038 


01b2b2 


000207 





CLRSIN 



•R/U/S RDYV P CONTROL RESET IS DONE, RETURN IS MfiOE BACK TO THIS 
ROUTINE^CLftSIN'- fiND FINALLY CONTROL IS TRANSFERRED BACK TO THE IAIN 
PROGRAN. 



OOiSlfa CLRSIN: NOV 
JSR 



lb303& 
lb301b 

16277b IS: 



lb2752 



2S: 



NOV 
JSR 
NOV 



aRKOA.OURCNT 

pc.clAerr 
qurcnt.srkda 

PC.DRCftND 
il§,SRKC5 



CON. ROY 
CLR TIMER. 



BIT 
BNE 
INC 
BNE 
JSR 

ERROR 

BIT 
BEQ 
JSR 



iRUS.SRKOS 
2S 

TiriER 
IS 

PC,RG4SDR 



•SIN.aRKOS 
2S 

PC,RG4S0R 



ERROR lb 



JSR PC.CRCMND 
CON. RESET 
RTS PC 



SAVE DISK ADDRESS 

GO^ HAIT FOR OTHER DRIVES TO COMPLETE 

THtiR SEEKSdF THEY ARE DOING ANY) 

THEN DO CON. RESET TO CLR THE EROR. 

ADDRESS THE DRIVE AGAIN 

SAVE INFO ABOUT THE PAST & PRESENT COHAND 

DO DRIVE RESET ON THE 

DRIVE 

INDICATED IN RKDA 



;UflIT FOR R/H/S RDY TO SET 



;GET RKCS. ER, OS. DA AND DRIVE « FOR 

TYPING SfeRIWt DRIvE • 

R/U/S RDY DID NOT SET AFTER 
DOING DRIVE RESET, TIMED OUT 



GET RKCS. ER, OS. DA AND DRIVE i FOR 
TYPING SWIAL DRtvE • ^ , _ ^ 
A DRIVE RESET UAS DONE ON THIS DRIVE 
TO CLEAR 'SIN', BUT 'SIN* DID NOT GET 
CLEARED 

;SAVE INFO ABOUT THIS COMMAND 
DO IT TO CLEAR OUT MASK F/FS 
EXIT FROM THIS ROUTINE 



NO 
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4Q3S 
4040 
4041 

4044 
4045 
404b 
4047 
4048 
404«3 
4050 
4051 
4052 
4053 
4054 
4055 
405b 
4057 



01b2b4 lOSSbl 001b22 

01b270 1227bl 000005 

01b27b 101403 

OlbaOO 06271b 000002 

01b30M 000207 

01b30b 000137 01b312 



ROUTINE IS ENTERED UHEN fl 'SIN' ERROR OCCURS. THE 'SIN' COUNT FOR 
THE'DRIVE GIVING 'SIN' IS INCREMENTED, IF MORE THftN 5 'SIN' ERRORS 

mmM wsiVMt," """" 

CftLL: JSR PC.SINCNT 

RETURN HERE IF SIN COUNT (MAXIMUM ftLLOUABLE) 

WAS EXCEEDED 

return here if total sin count less thftn maximum 

»;llouable. 



SINCNT: INCB 
001b22 CMPB 
BLOS 
ADD 
RTS 



IS: 



JMP 



SINCN(R1J ; INCREMENT 'SIN' COUNT FOR THIS DRIVE 

•5,SINCN(R1) ;5 ERRORS OCCURRED' 

IS YES 

12, (SP) -ADJUST PC FOR RETURN TO THE RIGHT POINT 

PC ; RETURN 

DSELCT ;5 ERRORS OCCURRED, GO DESELECT 
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HCS8 
4059 
HObC 
4061 
HObS 

H06M 
4065 
40b6 
40f)7 
40b8 
4069 
4070 
4071 
4072 
4073 
407M 
4075 
4076 
4077 
4078 
407«3 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
40S2 
4093 
4094 
4095 
40% 
4097 
M09B 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 



016312 
01631b 
016322 
016326 
016330 
016332 
016336 
016340 
016342 
0163HH 
0163% 
0163SQ 
016352 
0163S6 
016360 
016362 
016364 
016366 
016372 
01637M 



012705 
013702 
062702 
005205 
111503 
OH2703 
020301 
001403 
020502 
103770 
000472 
111502 
020527 
001406 
010504 
005205 
112524 
022704 
001374 
105065 



001253 
001264 
001253 



177600 



001264 

001263 
177777 



016400 


104401 


002336 


016404 


010146 




016406 


104403 




016410 


001 




016411 


000 




016412 


004737 


026766 


016416 


005337 


001264 


016422 


004737 


022656 


016426 


0127% 


177777 


016432 


0050% 




016434 


0137% 


001264 


016440 


004737 


025212 


016444 


005726 




016446 


012637 


001520 



THIS ROUTIfC IS ENTERED UHEN fl DRIVE IS TO BEDESELECTED (TAKEN 

OUT OFSELECT ON LIST)^ BECAUSE TfC FATAL ERRORS OH THAT DRIVE, 

HAS CACHED A WWIfWI tOUHT. Rl COMTAINS THE DRIVE MU«R THAT 

THAT IS TO BE DESELECTED. THE DRIVE IS DESELECTED IF 1. TOTAL SIN COUN' 

FOR THAT DRIVE REACHES THE flAXinun RLLOHABLE, 2 IF A FATAL ERROR 

LIKF DRIVE UNSAFE, DRIVE POUER LOU OCCURS. 3. IF WPS GETS SET, OR DRV 

IS CLEAR. 



DSELCT: NOV 
NOV 



IS: 



2S: 
5S: 



3S: 



41: 



ADO 
INC 
flOVB 
BIC 
CUF 
BEQ 
CNP 
BLO 
BR 

novB 

CHP 
BEQ 

nov 

INC 

novB 

CMP 
BNE 
CLRB 



TYPE 

nov 

TYPOS 
.BYTE 
.BYTE 
JSR 

DEC 

JSR 



nov 

CLR 

nov 

JSP 

TST 

nov 



•PDR-l.RS 
DRVPRS.RS 
•P0R-1,R2 
R5 

(RS),R3 
•177600, R3 
R3.R1 
2S 

R5,R2 

II 

lit 

(R5).R2 

RS,l^DR*10 

41 

R5,R4 
RS 

(RS)*.(R4)+ 

•P0R*^R4 

31 

-KRS) 



.nSG19 
ftl,-(SP) 

1 
0 

PCSNOTYP 

DRVPRS 

PC.CHOPRS 



•177777, -(SP) 
-(SP) 

DRVPRS. -(SP) 
PC.a^lOlV 

(SP)+.DPnflP 



NUHBER OF DRIVES BEING TESTED 
FOR END ADDRESS OF TABLE 
LOCATE THE DRI'/E (TO BE 
DESELECTED) IN THE TABLE 
DROP THE F FLAG 
IS THIS T« ONE 
CONTAINING AVAILABLE DRIVES 
FINISHED f 
BR IF NOT 

DRIVE UAS NOT FOUND IN TABLE. EXIT 

GET THE DRIVE NUMBER 

IS THIS DRIVE • THE LAST ENTRY IN 'ABlE' 

YES 

;IF NOT. TAKE OUT THIS DRIVE • FPOf 
THE ni&OLE AND PUSH UP THE 
I REST OF THE ENTRIES 

; CLEAR LAST ENTRY IN TABLE 

THE DRIVE i TYPED OUT UAS DESELECTED 

BECAUSE ERROR COUiT EXCEEDED THE 

NAXinun ALLOUABLE 

TYPE "DRVE DROPPED" 

PUSH DRIVE NUfCER ON STACK 

TYPE IT ON THE TERNINAL 



GO TYPE OUT SERIAL NO OF THE DRIVE. 

IF SU 1 IS SET. 

DECREMENT THE TOTAL NUMBER OF 

DRIVES PRESENT 

CHECK IF ANY DRIVES PRESLNT 

IF NOfC COT TO END OF PASS. SEOF 

PUT LOU DIVIDEND ON STACK 

CLEAR HIGH DIVIDEND AND PUSH 

IT ON STACK 

PUSH DIVISOR ON STACK 

GO TO THE 'DIVIDE' SUBROUTINE 

DISCARD THE REMAINDER. QUCTIEN' IS 

NOW ON TOP OF THE STACK 

TO BE USED FOR GENERATING RANCC 

DRIVE NUMBERS. 
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4114 
4115 
411b 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
412S 
412S 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 



01b452 
01b45b 
Qlb4bQ 
Olb%4 
Glb%b 
01b47Q 
01b47M 
OlbHTt) 

oibsoa 

016504 
016506 
016510 
016514 
016516 
016522 
01652M 
016530 



01270M 
011405 

020105 
001002 
052714 
00S72M 
022704 
001365 

105702 
100012 
032701 
001403 
042701 
000402 
052701 
000137 



001306 
177770 

104000 
001326 

ooooo: 

000001 

QOOC - 
016312 



016534 000137 010630 



bS: 

71: 
8S: 



<3$: 
lOS: 



113: 



nOV •KEY,R4 

flOV (R4).R5 

BIC 1177^70. R5 

CflP R1,R5 

8NE 7$ 

BIS 1104000, (R4) 

TST (R4)+ 

CriP •KEY420,R4 

BNE 6S 

TSTB R2 

BPL lis 

BIT II, Rl 

BEQ 9S 

BIC tl.Rl 

BR lOi 

BIS tl.Rl 

JflF DSLCT 



J1P BEGNEV 



DESELECT THE COWANDS 

IN THE 'COnflflNO 0' CORRESPONDI% 

TO THE DESELECTED DRIVE 



iINDICfiTE COfin«f€ DESELECTED 
IcfiND COflPLETED; 



•F' TYPE DRIVE ' 

NO - JUST EXIT 

000 OR EVEN DRIVE NUMBER 



;DROP CORRESPONDING DRIVE 

;G0 RESTART EXEPSISOfi PART OF "E=' 
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413S 








4136 
4137 














4138 








4lS 








4140 








4141 








4142 








4143 








4144 








4145 








4146 








4147 








4148 


016540 


0177% 


162464 


4149 


01654M 


010146 




4150 


0165% 


0002M1 




4151 


016550 


006016 




4152 


016552 


006016 




4153 


016554 


006016 




4154 


016556 


006016 




4155 


016560 


012677 


162444 


4156 


016564 


n3?777 


010000 


4157 


Q16572 


001403 




4158 


01657M 


004737 


022222 


415S 








4160 


016600 


104035 




4161 


016602 


032777 


002000 


4162 


016610 


001403 




4163 


016612 


004737 


022222 


4164 








4165 


016616 


104036 




4166 








4167 


016620 


032777 


000040 


4168 


016626 


001403 




4169 


016630 


004737 


022222 


4170 








4171 


01663M 


104037 




4172 








4173 


016636 


032777 


000200 


4174 


016644 


OOlOOM 




4175 


0166% 


004737 


022222 


4176 








4177 


016652 


10H034 




4178 








4179 


016654 


000411 




4180 








4181 


016656 


032777 


012040 


4182 


016664 


001005 




4183 


016666 


012677 


162336 


4184 


016672 


062716 


000002 


418S 


016676 


000207 




4186 








41B7 


016700 


000137 


016312 



chkdrv 

this routine checks for ffitol errors of the drive like dpl. drv 
yps. if finy one of these errors occur the drive is deselected 

;»n0te 1: in the error nessace where rkda is printed out, it gives 
:»0nly the drive number (not cylinder, suffice and sector). 



CALL: JSR 



CHKDRV: 



162424 



162406 IS: 



162370 2S: 



162352 3S: 



162332 4S: 



5S: 



PC.CHKDRV 

RETUftN HERE IF ANY FATAL ERROR OCCURED 
RETURN HERE IF THERE UAS NO FATAL ERROR 



MOV 
MOV 
CLC 
ROR 
ROR 
ROR 
ROR 
MOV 

B^Q 
JSR 

ERROR 
BIT 
BEQ 
JSR 



BIT 
BEQ 
JSR 



aRKDA.-(SP) 
R1,-(SP) 

(SP) 
(SP) 
(SP) 
(SP) 

(SP)*.aRKDA 
i^PL.tlRKDS 

PC,RG4SDR 

35 

iDRU.aRKDS 
2S 

PC,RG4S0R 



ERROR 36 



lUPS.SRKDS 
3S 

PC,RG4SDR 



ERROR 37 

BIT lDRY,aRKDS 

BNE 4S 

JSR PC,RG4SDR 

ERROR 34 

BR 5S 

BIT 112040, aRKDS 

BNE 5S 

MOV (SP)*.aRKDA 

ADD *i,lSP) 

RTS PC 

JMP D5ELCT 



;SAVE RKOA 
I GET DRIVE • 



; ADDRESS THE DRIVE TO BE CHECKED 
; DRIVE POWER 10U'> 

ER. DS, DA AND DRIVE t 
SERIAL NUnBER 
R LO, ftNOTE 1 ABOVE 



.^vw. cR. D5, W AND 
FOR TYPING SERIAL NUMBER 

DRIVE poicr " 



;GET RKCS 
;FOR 
DRIVE 
; DRIVE 

;GET RKCS- ER. DS, DA AND DRIVE t 

FOR TYPING SfeRIfld NiJMBER 
J- — 

SET' 



DRIVE UNSAFE BIT IS SET 



:CET RKCS, ER. DS, DA AND DRIVE t 
;FOR TYPING SfeRIflC NUMBER 

WPS SET, CHECK WRTE PROTECT SUTCh CN DP: 

«NOTE r ABOVE 
; DRIVE READY CLEW 

;GET RKCS, ER. DS, Dfl AND DRIVE I 
FOR TYPING SERIAL NUMBER 
DRIVE READY CLEAR. SHOULD BE SE' 

jftNOTE 1 ABOVE 

;ANY ERROR' 
YES 

; RESTORE RKDA 
ADJUST RETURN ADDRESS 
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1777bC 





GENBUF 

THIS ROUTINE GENERRAES P BUFFER FULL OF RPNDOri DflTP mORDS. THIS BUFFER 
IS THEN USED TO URITE DATA ON THE DISK. AT THE TINE OF ENTRY. RKDA 
CONTAINS THE DISK ADDRESS WHERE URITE UILL BE DONE. SEED W0RD4 USED FOP 
THE RANDOM NUMBERS ARC: 

1) ABSOLUTE DISK ADDRESS (DRIVE I, CYL 1. SEC I, SUR I) - SHINUM 

2) COMPLEMENT OF THE ABOVE UORD 
CALL: JSR RS.GENBUF 

X ;X IS THE UORD COUNT (2' 5 COMPLEMENT) 

Y Y IS THE STARTING ADDRESS OF THE 

; MEMORY BUFFER. 



GENBUF: SAVREG 

MOV 2(R5).R4 
MOV (R5),ft3 



IS: 



2S: 
3S: 

4$: 

5S: 
bS: 

SS: 



MOV 3RK0A.R2 

MOV r2,rs6th 

MOV R2.RSDTL 

COM rs6tl 

CMP •-400,R3 

BGT 2S 

MOV R3,R5 

CLR R3 

BR 3S 

ADD •400.R3 

MOV •-406.R5 

MOV R5,(R4)+ 



INC R5 

BEQ 8S 

JSR PC.IRAND 
RSDTL 

MOV •2.RCNT 

MOV RSOTH.RNUM 

BR 6f 

DEC RCNT 

BEQ 4S 

MOV RSDTL, RNUM 

TST RNUM 

BEO 5S 

MOV RNUM,(R4)* 

INC R5 

BNE 4S 



TST R3 

BEQ lOS 

MOV R2.-(SP) 

BIC •l777feO,(SP) 



;SAVE REGISTERS 

;GET STARTING ADDRESS OF BUFFER 
;GET UORD COUNT (• OF UORDS TC 
BE GENERATED) 



GET THIS RANDOM SEED 

GET LO RANDOM SEED 

IF THE BUFFER IS MORE THAN 
ONE SECTOR (400 UORDS) LONG. 
GENERATE THE BUFFER IN SUCH 
A UAY THAT EACH SECTOR 
BEGINS UITH RPrCOfl DATA 

UOROS GENERATED USING THAT 
SECTOR ADDRESS AS THE RANDOM 
SEED 

FIRST UORD OF EVERY SECTOR IS 
A UORD COUNT (2'S COflP) INDICATING • 
OF UORDS ACTUALLY URITTEN IN THAT SECTOR 
ALL DONE' 



: GENERATE DATA UORDS 



;FILL THE BUFFER. DON'T JSE 

;ALL DONE' 

:N0 

;ANY MORE DATA UORDS (FOR 
REST OF THE SECTORS)" 
:YES 

: (ABSOLUTE DISK ADDRESS S TS 



uu 
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4244 
4245 
42% 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
425£> 



017056 
017062 
017064 

017070 
017072 

017074 
017076 
017102 

017104 
017106 



022726 000013 
001002 

062702 000004 

005202 
000712 

104415 

062705 OOOOOM 
000205 

000000 
000000 



<3S: 
lOS: 



RCNT: 
RNUM: 



CflP 
BNE 
PDO 

INC 
BR 

RESREG 

ADD 

RTS 

0 
0 



•13. (SP)* 

14. R2 

R2 
IS 



■4.R5 
R5 



: COMPLEMENT) TO USE FOP 
: GENERATING DATA WORDS 
;0F THE NEXT BLOCK 

;HI RANDOM SEED 



RESTORE REGISTERS 
ADJUST RETURN ADDRESS 
RETURN 
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4257 

4258 

4259 

4260 

4261 

42b2 

H2b3 

42S4 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

427S 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

42% 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4211 

-♦312 



10:18 
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017110 
017112 

017116 
017122 
017126 

017130 
017132 

017136 
017140 
017142 

0171% 
017154 
017160 
017166 

017172 
017176 
017200 
017202 
017204 

017206 
017212 
017216 



017222 
017224 

017226 
017232 
017234 
017242 
017250 
017252 
017256 
017260 
017266 
017272 



104414 
016303 

016304 
016305 
011301 

010146 
004737 

012602 
006302 
062702 

012737 
011337 
013737 
005137 

022704 
003003 
010403 
005004 
000404 

062704 
012703 
012500 



017220 005200 



005203 
001465 

004737 
025754 
012737 
013737 
000406 
005337 
001763 
013737 
005737 
001767 



DATCHK 

THIS ROUTINE IS ENTERED UHEN THE DATA THAT UAS READ FROM THE DISK IS TO 
BE CHECKED. AT THE TIME OF ENTRY R3 CONTAINS THE OFFSET OF POINTER TC 
THE ADDRESS OF THE PARAMETER LIST ( RKCS, DA, UC . BA ) . DATA IS COCKED IN 
BLOCKS OF 1 SECTOR (400 WORDS). EACH BtOCi<: it GENERATED USING ''HE SEC'Oo 
ADDRESS (AND ITS COMPLEMENT) AS RANDOM SEEDS. UHEN A DATA MISCOMPARISCN 
OCCURS THE BUS ADDRESS, EXPECTED AND RECEIVED DATA ARE REPORTED, 



002032 

000004 
000006 



022170 



001712 

177764 001540 
025756 

025756 025754 
025754 

177400 



000400 
177400 



DATCHK: 



IS: 



2S: 
3S: 



025576 

000002 017104 
025756 017106 

017104 

025754 017106 
017106 



4S: 

9$: 
lOS: 



017274 005700 



5AVREG 
MOV 

MOV 
MOV 
MOV 

MOV 
JSR 

MOV 
ASL 
ADD 

MOV 
MOV 
MOV 
COM 

CMP 
BGT 
MOV 
CLR 
BR 

POD 
MOV 
MOV 



INC 

INC 
BEQ 

JSR 

RSDTL 

MOV 

MOV 

BR 

DEC 

BEQ 

MOV 

TST 

BEQ 

TST 



PCHND(R3),R3 

4(R3),R4 
b(R3).R5 
(R3).ftl 

R1,-(SP) 
PC.CROTLF 

(SP)*,R2 
R2 

iDATER,R2 

•-14,EC0UNT 
(R3),RSDTH 
RSDTH, RSDTL 
RSDTL 

i-400,R4 
2S 

R4,R3 

R4 

3S 

•400.R4 

•-406,R3 

(R5)+.R0 



RO 

R3 
14$ 

PC.IRANO 

•2.RCNT 

RSOTH.RNUM 

10$ 

RCNT 

4$ 

RSDTL, RNUM 

RNUH 

9$ 

RO 



SAVE R0-R5 

GET ADDRESS OF THE PARAME'EP 
TABLE 

GET WORD COUNT (2'S COMP; 
GET BUS ADDRESS 
GET DISK ADDRESS 



iROTATE BITS 15,14,13 TO 

|p6p OFF DRIVE I FROM THE STACK 

;FORH THE ADDRESS OF DATA ERROR COJN^ 
•FOR THIS DRIVE 

; CREATE RANDOM SEEDS TO 
;BE USED FOR CHECKING DATA 



DATA IS CHECKED IN 1 SECTOR 
BLOCKS. EACH SECTOR IS GENERATE: 
USING THAT SECTOR ADDRESS 
AS THE RANDOM SEED 



SAVE THE FIRST UORO OF THE SECTOR. 
FIRST UORO OF EVERY SECTOR IS A COUNT 
(2'S COMP) INDICATING I OF UORDS ACTLAlY 
UfilTTEN IN THAT SECTOR 
INCREfCNT COUNT OF • OF UORDS lURITEN; 
IN THE SECTOR 

INCRHENT COUNT OF DATA WORDS TO BE CHECKED 
BRANCH, IF DONE 

GENERATE RANDOM DATA WORD 



H08 
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4313 

4314 

4315 

431b 

4317 

4319 

4319 

4320 

4321 

4322 

4323 

M32S 

4325 

4326 

4327 

4328 

432<9 

4330 

4331 

4332 

4333 

433M 

4335 

433£) 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4362 

4364 

4365 

4366 

4267 



017276 
017300 

017302 
017306 

017314 
017316 
017320 
01732H 

017326 
01733M 
017336 
017342 
017344 
017350 
017354 
017360 
017364 



001401 
00S200 

023715 
001431 

5700 
1005 
005715 
001425 
005037 
000M03 



017106 



5S: 



001164 



017372 
017374 
017376 

017400 
017402 



017406 
017412 
017416 
017420 

017424 
017426 
017M3H 
017M36 
017442 
017H44 
017H50 
017454 
017460 
017462 
CI 7464 



013737 017106 001164 
001540 



005212 

"1737 



005 

001413 
010537 
011537 
010137 
004737 
104023 



6S: 
7J: 



001162 
001166 
001 170 
022226 



017366 005237 001540 



005725 
005203 
001313 

005704 
001427 



8S: 



14$: 



017M04 010146 



042716 
022726 
001002 
062701 

005201 
032777 
001403 
020177 
001407 
010137 
010137 
005137 
000644 
104415 
000207 



177760 
000013 

000004 



000002 161564 

161566 

025756 
025754 
025754 



15S: 



16S: 



17$: 



BEO 
IMC 

cnp 

BEO 
TST 

Bre 

TST 
BEO 
CLR 
BR 

nov 

INC 
TST 
BEQ 

MCV 
MOV 

nov 

JSR 
ERROR 



INC 

TST 
INC 
BNE 

TST 
BEQ 

nov 

BIG 
CMP 
BNE 

m 

INC 
BIT 
BEQ 
CNP 
BEO 
10V 
MOV 

con 

BR 

RESREQ 
RT5 



5$ 

RO 

RNUn, (R5J 
6$ 

iRS) 
8$ 

S"' 

RNUn,$REGl 

(R2) 
ECOUNT 

8$ 

R5.$REG0 

(R§).$REG2 

Rl.$ftEG3 

PC,GTSDRV 

23 



ECOUNT 

(R5j* 

R3 

4$ 

R4 
171 

R1,-(SP) 

•177760, iSP) 
• 13,(SPW 
15$ 
•4,R1 

Rl 

iCSE.aRKER 
16S 

Rl.aRKOA 
17* 

Rl.RSDTH 
Rl.RSDTL 
RSOTL 
IS 

PC 



;EXPCTO WORD s RECVD UORC 
;YES 



SftVE EXPCTD DATA WORD 

INCRMNT DATA EROR COUNT FOR THIS DRVE 

STORE ONLY 12 (DEC) DATA ERRORS 

IF nORE EXIT 

SAVE ERROR BUS ADDRESS 

SAVE ERROR DATA UORO 

SAVE DRIVE 1. FOR TYPING SERIAL I 
DATA (COrfARISON) ERROR ON DOING 
READ FROn DISK NORMAUY ONLY 12 DATA 
ERRORS UILL BE REPORTED. THROUGH 
CHECKING UILL BE DONE, ERRORS 
EXCEEDING 12 WON'T BE REPORTED. IF 
YOU WANT MORE, CHANGE 'ECOUNT*. TO 
WHATEVER t OF ERRORS YOU WANT REPGPTEC 



;DONE CHECKING' 

:ANY MORE SECTOR BLOCKS 
;T0 CHECK' IF NOT. EXIT 

:GET THE NEW RANDOM SEEDS 

; (ABSOLUTE DISK ADDRESS i ITS CCMPLEMEn'^ 

:T0 USE FOR GENERATING DATA WORDS 

J OF THE NEXT BLOCK 



;IF THERE WAS A CSE THEN CHECk 
I ONLY THOSE SECTORS THAT WERE REAC 



: RESTORE RQ-R5 
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H3be 

4370 
4371 
4372 
4373 
4374 

3i 

4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
438S 
4390 
43<31 
4392 
4393 
4394 
4395 
43% 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4H05 
440b 
4407 
4408 
4H09 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 



,SBTTL ROUTINE TO SIZE MEMORY 



017466 
017470 
017472 
017M7M 
017476 
017502 
017506 

017510 
017512 
017516 
017522 
017524 
017526 
017530 
017536 
017542 
017550 
017552 
017556 
017562 
017570 
01757? 
017576 
017600 

i: 

017614 
017622 
017624 
017626 
017632 
017640 
017644 
017650 
017654 
017656 
017660 
017664 
017666 



8 



010046 
010146 
010246 
010346 
0137% 
0137% 
010600 

104400 
012637 
012701 
105727 
000200 
100062 
012737 
005737 
052737 
005QH6 
012702 
012703 
012762 
011622 
16 



000004 
000006 



000006 
003776 



017666 
177572 
100000 

172340 
000010 
077406 

000200 



012742 177600 



017624 
000020 



177572 
017656 
143776 
000040 
172356 



177572 
100000 



n 

012737 
000401 
022626 
005237 
012737 
005737 
062712 
023712 
101371 
011202 
005037 
000421 
042737 



♦CflLL: 

« JSR PC.SSIZE 
» RETURN 
«SLSTPD WILL CONTAIN: 

* UITH KTll OPTION — LAST VIRTUAL ADDRESS OF THE LftST EhNi^ 

» WITHOUT KTll OPTION — LAST ABSOLUTE ADDRESS OF AVAILABLE ME-^OC' 

«SLST3K UILL CONTAIN THE LAST BANK AS A SAF 

»$KT11 IS THE HEMORY MANAGEMENT KEY 

»BIT07 = 0 DON'T USE MEMORY MANAGEMENT 

ft MUST BE SETUP BEFORE THE CALL 

ftBITlS = 0 DON'T HAVE MEMORY MANAGEMENT; OPTION 

ft DETERMINED BY ROUTINE 



JSIZE: MOV RO,-(SP) 

MOV Rl -(SP) 

MOV R2 -(SP) 

MOV R3.-(SP) 

MOV aiERRVEC,-(SP) 

MOV aiERRVECi2,-(SP) 

MOV SP.RO 



;;SET THE ERRVEC P§ TO THE PRESEftt PS 



SAVE RO ON THE STACK 
SAVE Rl ON THE STACK 
SAVE R2 ON TfC STACK 
SAVE R3 ON THE STACK 
SAVE PRESENT ERROR VECTOR PS 

SAVE THE STACK POINTER 



& PC 



JKTll; 



000004 
017524 

177740 IJ: 



000004 
172516 



000004 



2S: 
3S: 

4J: 



SKTOUT: 



017524 5KTNEX: 



TRAP 

MOV (SP)*,SlERRVEC+2 

MOV 13776, Rl 

TSTB (PC)+ 

.UORO 200 

BPL SCORE 

MOV lSKTNEX,atERRVEC 

TST aiSRO 

BIS 1100000, SKTll 

CLR -(SP) 

MOV •KIPARQ,R2 

MOV itos.Ra 

MOV 177406. -40 (R2) 

MOV (SP),(R2)* 

ADD 1200. (SP) 

SOB R3.lt 

MOV 1177600, -(R2) 

CLR -(R2) 

MOV i2S.aiERRVEC 

MOV •20,aiSR3 

BR 3S 

CMP (SP)+,(SP)+ 

INC a«SRO 

MOV iSKTOUT.atERRVEC 

TST ail4377t 

ADD 140, (R2) 

CMP aiKIPAR7 (R2) 

BHI 4S 

MOV (R2).R2 

CLR 3I5R5 

BR J5IZEX 

SIC 1100000. JKTll 



; ;PUSH OLD PSH AND PC ON STACK 

liSAVE THE PSU IN aiER^VEC+2 
SETUP A6DRES5 
USE MEMORY MANAGEMENT? 
SET TO USE MEMORY MANAGEMENT 
BR IF NO 
jSET FOR TIMEOUT 
KTll ARE YOU THERE' 
YES—SET KTll KEY 
INITIALIZE FOR "PAR" LOADING 
ADDRESS OF FIRST "PAR- 
LOAD EIGHT -PAR.'S" AND EIGHT "POP. 
POR = 4K. IP, READ/URITE 
LOAD "PAR" 

UPDATE FOR rCXT "PAR- 
LOOP UNTIL ALL EIGHT ARE LOADED 
SETUP KIPAR7 FOR I/O 

t! 

ENABLE 22 BIT MODE 
THIS PDP-11 HAS A SR3 REGISTER 
CLEAN OFF THE STACK— NO SR3 
TURN ON MEMORY MANAGEMENT 
:SET FOR TIME OUT 
tRAP ON NON-EX-MEM 
MAKE A IK STEP 
LAST ONE' 
NO—TRY IT 
GET LAST BANK+1 
TURN OFF MEMORY MANAGEMENT 



KIPARb FOR TESTING 
TIMEOUT IF NO SR3 



;;KT11 NON-EXISTENT 



Hu. 



JOS 

Ob-JUN-77 



14:55 PAGE 100 




4428 
4429 
4430 
4431 
4432 
4433 
443S 
4435 
4436 
4437 
4^*38 
443*3 
4440 
4441 
4442 
4443 
4444 



017874 012737 017724 000004 SCORE: MOV 

IS: M 



JCROUT: 
SSIZEX: 



0] 


7714 


005711 


01 


7716 
7722 


Q227Q1 
001370 


OJ 


1 7724 


162701 


OJ 
Oi 


L773Q 
L773M 


1^702 
010006 


OJ 


17736 


012637 


Q] 


i77S2 


012637 


0 


17746 


010137 


OJ 


L7752 


010237 


OJ 


17756 


012603 


OJ 


L7760 


012602 


OJ 


7762 


012601 


OJ 


17764 


012600 


OJ 


i77b6 


000207 


OJ 


17770 


000000 


OJ 


17772 


000000 



177776 

OOHOOO 
000040 

000006 
000004 
017770 
017772 



JLSTflD: 
JLSTBK: 



•SCROUT.aiERRVEC 

(Rl) ; 

ij77776,Rl I 

•4000. Rl 

•40.R& ; 

RO.Sp ; 
(Sn>,aiERRVEC+2 
(SP)>.31ERRVEC 

Rl,JL§TflD ; 
R2!SLSTBK 

(S^)>,R3 ; 

(SP)*,R2 ; 

(SP)> Rl ; 

(SP)*,RO ; 
PC 



:SET FOR TIMEOUT 

|{R^lfiY IK 

TRAP ON TIME OUT 
LAST ONE 
NO— TRY ftG«IN 

DROP BACK 

RESTORE THE 5TfiCK 

; RESTORE ERROR VECTOR 

LAST ADDRESS 
LAST BANK 
RESTORE R3 
RESTORE R2 
RESTORE Rl 
RESTORE RO 



CONTAINS 
CONTAIN? 



THE 
THE 



LA! 
Lfll 



IT ADDRESS 
)T BANK 



Sk^^ Pll 

4445 
444fe 
444/ 

4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
445& 
4457 
4458 
445S 
44fc0 
4%i 
44b2 
4463 
4%4 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4H8H 
4485 
4H86 
4487 
4HB8 
4489 
4H90 
4491 
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TYPOBO 
THIS , 
out TH( 
OF EHTRY. 

TYPE OUT IS INHIBITED IF SU 13 IS SET, 



TO PHYSICAL ftODRl 
NTPINS ViRTUftL 50l 



I ftNQ TYPES 

:ss St the TifiE 



017774 
020002 

8i88o6 

020010 


032777 
001042 
0103% 
010446 
010546 


020000 


161136 TYPOBO: 


BIT 
8NE 

nov 
nov 
nov 


iSU13,33UR 
2S 

R3,-(SP) 
R4 -(SP) 
R5,-(SP) 


8i8Si4 

020020 
020022 


012603 
006303 


022170 




nov 

JSR 
nov 
ASL 


R2,-(SP) 
PClCROTLF 

R3 


020024 


016304 


172340 




MOV 


KIPRR0(R3),R4 


020Q30 
020032 
020036 
020040 
020042 


005003 
01P70S 
006.'^ 
005205 
001375 


177772 


IS: 


CLR 

nov 

ROL 
INC 
BNE 


R3 

i-6,R5 
R4 
R5 
IS 


020044 


010246 






nov 


R2,-(SP) 


020046 
020052 
□ciaj5H 


042716 
062604 
OUsbOd 


160000 




BIC 
ADD 


1160000, (SP) 
(SP)+,R^ 


020066 
020072 


8lS§7 
012/46 
004737 


001162 
024464 




MOV 
MOV 
MOV 
JSR 


•$ftE(M.-(SP) 
PC,aiSDB20 


020076 


004737 


025014 




JSR 


pc,aisuPRS 


020102 
020104 
020106 


012605 
012604 
012603 






MOV 

nov 
nov 


fSP)+,R5 
(SP)+,R4 
(SP)+!R3 


020110 


000207 




2S: 


RTS 


PC 



; INHIBIT TYPEOUT' 

;YES 



PUSH Vft ON STACK 

ROTATE BITS 15,14,13 INTO 2,1,0 

FORM OFFSET TO BE USED 

FOR KIPAR 

GET THE BASE Pf^GE ADDRESS FROM 
KIPAR 

ROTATE LEFT 6 TIHES (MULTIPLY 
BY 100 OCTAL) TO G£l THE 
BASE BUS ADDRESS (PHYSICAL) 
R3 CONTAINS nSB-2 BITS 



STRIP OFF TOP 3 BITS FROM Vfi & 

GET THE OFFSET INSIDE THE PAGE 
FORM THE ENTIRE PHYSICAL 
ADDRESS. R4 CONTAINS LOUER 16 BITS 
R3 CONTAINS TOP 2 BITS 

PUSH POINTER TO PA ON STACK 

Ms'VS M'«§lSf WrS on RETtnr. 
POINTER TO THE FIRST ASCI2 CHARACTERS 
IS ON STACK 

TYPE OUT THE OCTAL 6 DIGIT 
PHYSICAL ADDRESS. 



LOS 
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MHSc 






4493 






44<3S 






4495 






44% 






44<37 


020112 


005777 


44qe 


02011b 


100073 


449S 


320120 


004737 


M500 


020124 


000207 


4501 






4502 






4503 






4504 






4505 






450b 






4507 






4508 


02012b 


020277 


4509 


020132 


0Q14b5 


4510 


020134 


010237 


4511 


020140 


017737 


4512 


02014b 


000207 


4513 




4514 






4515 






45ib 






4517 






4518 






4519 






"520 






4521 


020150 


000241 


4522 


020152 


006103 


4523 


020154 


0b0304 


4524 


02015b 


000241 


4525 


0201b0 


006003 


4526 


0201b2 


020477 


4527 


020lbb 


001447 


4528 


020170 


010437 


4529 


020174 


000207 


4530 






4531 


02017b 


017737 


4532 






4533 






4534 






4535 






4536 






4537 


020204 


01774b 


4538 


020210 


042716 


4539 


020214 


02272b 


4540 


020220 


001432 


4541 


020222 


004737 


4542 


02022b 


000207 



lbll04 
022032 



lb 107b 
001 lb2 

Ibl0b4 001 lb4 



161040 
001 lb2 

lb 1024 001 lb4 



Ibl0l2 
177717 
000020 

022032 



I^iS ROUTINE CHECKS IF BIT 15 OF RKCS WAS SET. IF IT UftS RETURN I 
Th£ error message following the JSR call. IP NOT, THE ERROR MADE 



OVER THE ERROR MESSAGE. 



MADE ' 
0 SKIP 



CHKCS: TST 
BPL 
JSR 
RTS 



SRKCS 
COMRET 
PC,GT4RG 
PC 



BIT 15 SET' 

NO 

YES, GET RKCS. ER, OS. DA 
RETURN TO THE ERR6r MESSAGE 



* CHKOA 

•THIS ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF NOT^ RETURN IS MADE 
;T0 THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF YES, RETUftN IS HADE TO 
;SKIP OVER THE ERROR MESSAGE. 

;AT THE TIME OF ENTRY, R2 CONTAINS THE EXPECTED RKDA. 

CHKOA: CMP R2.aRKDfl ;0ID RKDA INCREMENT CORRECTLY' 

BEG COlteET ;YES 
MOV R2,JREG0 ;GET EXPCTD RKDA 

MOV aRi<:OA,SREGl GET RKOA RECVD 
RTS PC ; RETURN TO THE ERROR MESSAGE 

CHK8A 

THIS ROUTINE CHECKS IF RKBA INCREMENTED CORRECTLY. IF NOT. RETURN IS HADE 
TO THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF YES, RETUftN IS MADE TO 
SKIP OVER THE ERROR MESSAGE. 

AT THE TIME OF ENTRY. R3 CONTAINS THE WORD COUNT (I OF WORDS TRANSFERRED- 
R4 CONTAINS THE BUS ftODRESS WHERE THE TRANSFER STARTED. 



CHKBA: CLC 
ROL 
ADO 
CLC 
ROR 
CMP 
6EQ 
MOV 
RTS 



R3 

R3,R4 
R3 

R4,^KBA 
COMfeT 
R4,SREG0 
PC 



;FORH THE EXPCTD BUS ADDRESS 



:DID RKBA INCREMENT CORRECTLY^ 
;YES 

;GET EXPCTD RKBA 
RETURN TO THE EROR MESAGE 



MOV aRKBA,SREGl ;GET RKBA RECVD 

;CHKHEX 

;THIS ROUTINE CHECKS THAT RKBA OVERFLOWED AND MEX 1IT WAS 5ETIN RKCS .'Br 
;IF RKBA OVERFLOWED CORRECTLY, THE RETURN ADDRESS iS ADJUSTED TO SKIP ^HE 
: ERROR MESSAGE ON RETURN. 



CHKMEX: MOV 
BIC 
CMP 
BEQ 
JSR 
RTS 



SRKCS, -(SP) 

•177717. (SP) 

•BIT4.(SP)+ 

COMREt 

PC,GT4RG 

PC 



;GET RKCS 

GET HEX BITS 4.5 
; CHECK BIT 4 SET' 

YES. OK 

SAV£ RKCS, ER, OS, DA 
RETURN 



PERFQRflflNCE EXER 











LiCLlLi 








14^14 








^^^7 








~3 'O 






i DU r r U 














□17737 






UCUC '~ 


n 1 7717 


1 £.07514 




n?np?p 


nnnpn7 

UUUCUr 




















1333 
















•4557 

133 r 








M55fl 


























UCUCw 1 


n.l?777 


oonioo 

UUUl Uw 














[K34737 


022032 


45fi4 




nnnpn7 

UUUCUr 




45fk5 
















45fi7 

i30' 








45(>S 
1300 
















457Q 








4571 












1 05777 


lfi0724 


4573 


02027b 


100403 




457M 


020300 


004737 


022032 


4575 


02030M 


000207 




457S 








4577 


020306 


0&271b 


000002 


4578 


020312 


000207 





001 lb2 
001 lb4 



MOS 

Ob-JUN-77 
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CHKUC 



MfiDE TO SKIP OVER THE ERROR MESSAGE. 



IS 



CHKUC: 



TST 
BEQ 
MOV 
MOV 
RTS 



Ci 



RKUC 
OMRET 
SRKOA,SREGO 
SRKUC.SREGl 
PC 



;RKUC OVERFLOUEO^ 
•YES 

; RETURN TO THE EROR HESflGE 



CHKRUS 

THIS ROUTINE CHECKS IF R/U/S ROY BIT IN RKDS IS SET. IF IT IS NOT SET RETURN 
IS riADE TO THE ERROR MESSPGE FOLLQUING THE JSR CALL. IF IT IS, THE RETURN 
fiODRESS IS ADJUSTED TO SKIP OVER THE ERROR f€SSAGE ON RERTURn! 



Ib0734 CHKRUS: BIT 
BNE 
JSR 
RTS 



•RUS.aRKDS ;RUS RDY SET' 

COMRfel ;YES 

PC,GT4RG GET RKCS. ER. OS. DA 

PC RETURN t6 T»€ ERROR NESSAGE 



• CHKCROY 

•THIS ROUTINE CHECKS IF CONTROL READY BIT IN RKCS^IS SET IF IT IS NOT, 
RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF IT IS. 
RETURN ADDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE. 



CHKCRDY: TSTB 
BMI 
JSR 
RTS 

COMRET: ADD 
RTS 



SRKCS 
COMRET 
PC,GT4RG 
PC 

•2,(SP) 
PC 



; CONTROL READY SET' 
YES 

;GET RKCS. ER, DS. DA 

•RETURN t6 T>€ ER6R HESAGE 

; ADJUST RETURN ADDRESS TO SKIP CVEP flESfiGE 



nO-ll-DZRKHG, 
02RKHG.P11 



3i 

4581 
4582 
4583 
4584 
4585 
458& 
4587 
4588 
458S 
4590 
45S1 
45'32 
4593 
4594 
4595 
45% 
4597 
4598 
4599 
4E>00 
4&01 
4602 
4603 
%04 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
%14 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
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10:18 



flftCYU 30(1046) 



NQS 

06-JUN-77 



14:55 PAGE 104 



ROUTINE TO SIZE HEnORY 

WHICH IS ABOUT TO BE INITIATED. 'PSTFNC' CONTAINS INFORHATIOW ABOUT THE 
COWIANO THAT UAS EXECUTED BEFORE THIS NEU ONE. THERE ARE MULTIPLE POINTS 
OF ENTRY DEPENDING ON THE TYPE OF COMMAND BEING PRESENTLY INITIATED: 

DRCMNO - ENTERED WHEN A DRIVE RESET IS BEING INITIATED. DRIVE t IS SAVED 
IN BITS 0-2 OF 'PRSCMND' AND BIT 8 IS SET. 

CRCMND - ENTERED WHEN A CONTROL RESET IS BEING INITIATED. BIT 14 OF 
'PRSCMND' IS SET. 

POSCMND - ENTERED WHEN A POSITIONING SEEK IS BEING INITIATED. BITS 0-2 
CONTAIN HE DRIVE NUMBER ON WHICH THE POSITIONING SEEK WAS DONE. ALSO 
BIT 7 IS SET. 

IN ALL ABOVE CASES BIT 15 OF 'PRSCMND' IS SET. 

FNCMNO - ENTERED WHEN A COMMAND OTHER THAN ANY ONE OF THE ABOVE IS BEING 
INITIATED (EX: READ. WRITE, ETC). 

THE OFFSET TO THE c6mMAND KEY (BflSE=KEY) IS SAVED IN BITS 0-3 OF 'PSRCMND' 

IT SHOULD BE NOTED THAT CONTENTS OF 'PRSFNC' ARE PUSHED INTO 'PSTFNC' 
AND SAVED, BEFORE PUTTING INFO ABOUT THE PRESENT COHMAMD IN 'PRSFNC'. 



;SAVE DRIVE « 



020314 
020322 
020326 
020332 
020336 


012737 
0177% 
004737 
052637 
0G0424 


100400 
160702 
022170 
001512 


001512 


DRCMNO: 


MOV 
MOV 
JSR 
BIS 
BR 


•BIT15<^BIT8,QFNC 

aRKDA.-(SP) 

PC.CROTLF 

(S^)+,QFNC 

P2 


020340 
0203% 


012737 
000420 


140000 


001512 


CRCMND: 


MOV 
BR 


•BITIS+BITIM.QFNC 

P2 


020350 
020354 
020362 
020370 


011037 
042737 
052737 
000407 


001512 
177770 
100200 


001512 
001512 


POSCMND. 


BIC 
BIS 
BR 


MOV (RO),QFNC 
•177770.QFNC 
•BIT15^6lT7,QFNC 
P2 


020372 
020376 
020400 
020404 


005037 
010046 
162716 
052637 


001512 

001306 
001512 




FNCMNO: 
PI: 


CLR 
MOV 
SUB 
BIS 


QFNC 
RO.-(SP) 
•KEY.CSP) 
(SP)+,QFNC 


020410 
020416 
020424 


013737 
013737 
000207 


001462 
001512 


001464 
001462 


P2: 


MOV 
MOV 
RTS 


PRSFNC.PSTFNC 

QFNC.PftSFNC 

PC 



;GET DRIVE NO. 



•C-ll-OrRKHG. 
DZHUHG.PU 



%2e 

%3C 
%31 
%32 
%33 
%3M 
%35 
%3b 
H£»37 
%3B 
Ht>3S 
%4C 
%Hi 
%M2 
%43 
%4M 
%H5 
%% 
%47 
%48 
%MS 

%5a 

%53 
%5M 
%55 
%5£> 
■»fe57 
%58 
4b59 
%CiO 
%CiI 

%fi3 
466M 
%(>5 

4667 

%6e 

%6'5 
%70 
4671 
4672 
4673 
467M 
^7S 
4676 
4677 
%78 
4679 
4680 
4681 

-f6S3 
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020N26 
QSOHX 

320M3S 

020442 
0204% 
020452 
020454 
020456 
020460 
020462 
020466 

020470 
020474 

020516 
020516 

020520 
020520 
020524 

020536 
020536 

020540 
020540 
020544 

020572 
020572 
020574 
020600 
020602 

020604 
020606 
020612 
020616 
020622 
020626 

020636 
020636 
020640 
G20642 
020646 



ai0046 
0101% 

012700 
104401 
104401 
104401 
005710 
100053 
105710 
100427 
032710 
001014 

104401 
000410 



000425 



104401 
000404 



000463 



104401 
000412 



0110% 
042716 
104402 
000441 

011001 
016101 
016104 
004737 
104401 
000403 



011146 
104402 
104401 
000403 



001462 
0207% 
020772 
020762 



040000 
020476 



020526 



Q20S46 



177770 



002032 
000002 
021736 
020630 



020650 



HISTRY 

THIS ROUTINE TYPES OUT INFORMftTION ABOUT THE FUNCTIOH THftT MS 
2EING PERFORMED OM THE RK AT THE TIf€ Of ERROR ftfC THE FUNCTION 
Jmi MS PERFOWCD JUST BEFORE TH«T FUNCTION (WHICH LED TO 
THE ERROR). THIS ROUTINE IS CRLLED UHEN RN ERROR OCCURS RNO SU 12 
IS SET. 



HISTRY: 



6S: 



::6SS: 
&4S: 



II: 



::67S: 



2S: 



7S: 



3S: 



• •7'1' 



NOV 
NOV 

MOV 

TYPE 

TYPE 

TYPE 

TST 

BPL 

TSTB 

BHI 

BIT 

BNE 

TYPE 
BR 

.ASCIZ 
BR 



TYPE 
BR 

.ASCIZ 
BR 



TYPE 
BR 

.ASCIZ 

MOV 
BIC 
TYPOC 
BR 

MOV 

MOV 

MOV 

JSR 

TYPE 

BR 

.ASCIZ 

MOV 
TYPOC 
TYPE 
BP 



R0,-(SP) 
R1,-(SP) 

•PRSFNC,RO 

,MH1 

,MH3 

,MH2 

(RO) 

3S 

(RO) 

21 

I6IT14,(R0) 
IS 

,651 
&4S 

/ORESET ON DRV 
7S 



,67S 

/CRESET/ 
4f 



READ, READ CHECK, URITE. URITE CHECK, SEEK 

POSITIONING I SEEK) 

CONTROL RESET 

;TYPE ASCIZ STRING 
;G£T OVER TfC ASCIZ 



;;TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 



,69S 



;;TYPE ASCIZ STRING 
GET OVER TfC ASCIZ 



/POSITIONING DRlC^ / 

;TYPE DRIVE NO 



(RO)^(SP) 
•177^70, (SP) 



4S 

(RO).Rl 
PCHfCI(Rl),Rl 
2(Rl)xR4 
PC.TYK^N 

^OS 

<l5><12>''DAs/ 
(R1),-(SP) 

.731 
>2S 



;G0 TYPE OUT THE FUNCTION 
: BEING PERFORMED 

;;TYPE ASCIZ STRING 
IIgET OVER THE ASCIZ 



;TYPE OUT DISK ADDRESS 

;:TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 



1C-11-DZRKHC. RKH-RK05 PERFORMANCE EXERCISER rWCYU 3011046) Ob-JUN-77 14:55 PAGE 10b 
DZRKHG.Pll 25-flPR-r7 10:18 ROUTINE TO SIZE HENORY 



4684 
4£>85 
4f>86 
4{>87 
4£>88 

4€,ag 
%« 

%91 

%« 

4fc<9M 
4695 
%% 
%97 
46«» 
4€,9q 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
470S 
4710 
4711 
4712 



020656 
020656 
020662 
020664 
020670 

020700 
020700 
0?0704 

020706 
020712 
020714 
0 20716 
020722 
020726 
020732 
02073M 
0207HQ 
0207H2 
02074M 
0207% 
020754 
020762 
020770 
020772 
020775 
021002 



016146 
104402 
104401 
000403 



0161% 
10H402 

020027 
001410 
005720 
lOHMOl 
lOHMOl 
lOHHOl 
000647 
104401 
012601 
012600 
000207 
005015 
044524 
042440 
000040 
052101 
120 
052040 



000006 
020672 

000004 
001464 



0207% 
020775 
0207&2 

001213 



052506 041516 
047117 000040 
051122 051117 



0(S3 
044522 

000117 



Ml: 



4S: 



5S: 

PIHl: 
«H2: 
f1H3: 

051117 nH4: 



.RSCIZ 

NOV 
TYPOC 
TYPE 
BR 

.RSCIZ 

NOV 
TYPOC 

CNP 

BEQ 

TST 

TYPE 

TYPE 

TYPE 

BR 

TYPE 

nov 
nov 

RTS 
.ftSCIZ 



/ BR:/ 

6(R1),-(SP) 

.75$ 

Ss 

4(R1),-(SP) 



RO.IPSTFNC 
5S 

CRO)* 
,F1Hi 



;:TYPE fiSCIZ STRING 
;:G£T OVER THE flSCIZ 



:nH2 

,ICRLF 
tSP)*,Rl 
(SP)+,RO 
PC 

(15>(12> ^FUNCTION 



.ftSCIZ / ERROR / 



.ASCIZ 
.ASCIZ 

• EVEN 



/flT/ 

/PRIOR TO' 
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4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
472£» 
4727 
4728 
472*3 
4730 
4731 
4732 
4733 
4734 
4735 
473b 
4737 
4738 
473S 
4740 
4741 
4742 
4743 
4744 
4745 
47% 
4747 
4748 
474<3 
4750 
4751 
4752 
4753 
4754 
4755 
■t75fc 



021006 
Oc^lOlO 
021012 

021014 
021016 
021020 
021022 
021026 
021030 
021032 
021036 

021040 
021044 

0210% 
021052 
021054 

021056 
021062 

021064 
021070 
02107'+ 



0100% 
010246 
010346 

005002 
005701 
001404 
062702 
005301 
001374 
0165X 
005400 

005777 
lOOOOH 

0177 J3 
005403 
160300 

02270H 
001005 

060062 
005562 
000404 



000004 
000004 
160156 
160152 

000002 



001732 
001734 



021076 060062 001772 



021102 005562 301774 



;gT«T5IC, 



THE TIHE OF ENTRY Rl CONTftlNS THE DRIVE NUMBER FOR UHICH THE STATISTIC 
i IS TO BE OBTAINED. R5 CONTAINS THE POINTER TO THE PARAMETER TABLE. FOR 
THE COnriAND EXECUTED ON THE ABOVE DRIVE. R4 CONTAINS THE FUNCTION CODE 
(HRITeVrEAD, ETC) FOR UHICH STATISTICS ARE TO BE TAKEN. 



021106 
02111Q 
021112 
Q2I114 



012603 
012602 
012600 
000207 



STATSTCrMOV RO.-iSP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

CLR R2 

TST Rl 

BEQ 2S 

IS: ADD 14, R2 

DEC Rl 

BNE IS 

2S: MOV 4(R5),R0 

NEG RO 

TST aRKCS 

BPL 3S 

MOV aRKUC,R3 

NEG R3 

SUB R3,R0 

3$: CMP •2,R4 

BNE 5S 

4S: ADD R0.NWRTL(R2) 

ADC NiffiTH(R2) 

BR 6S 

5S: ADD R0,NR0L(R2) 



fiOC NRDH(R2) 

6S: MOV (SP)-»,R3 

MOV (SP)+,R2 

MOV (SPJ+.RO 

RTS PC 



;PUSH RO, R2, R3 ONTO THE 
I STACK 



; DRIVE 0' 

FORM THE OFFSET FOR THE 
'UORDS XFERRED COUNTS 
Inmrtl, NRDL 

:GET UORO COUNT (RKUC) FROM 
I THE PARAMETER TABLE 

;ANY ERROR DURING THE XFER^ 

;YES, 

GET THE • OF WORDS THAT 
lUERE ACTUALLY X-FERRED 

; WRITE FUNCTION' 

:YES^ ADO THE • OF UORDS 
XFEI^D (URITE) 
;NOTE IT'S 2-UORO COUNT LO. ''I 

; ADO THE • OF UORDS READ 
NOTE THAT URT CHK, 

:READ CHK ARE ALSO CONS- 
IDERED TO BE -READ' 

•CARRY OVER TO THE HI UORD 

:POP R3,R2.R0 FROM THE STACK 
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4757 
4758 
4759 
47£>0 
4761 
4782 
4763 
4764 
4765 
4766 
4767 
4768 
47b<3 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
477S 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4B04 
4805 
4806 
4807 
4808 
4809 
4810 
HP'l 
4812 



;REPSTflT 
;THIS ROUTINE 



021U6 
021122 
021126 

021132 
021136 
021140 
021144 
021146 
021150 
021151 
021152 

021156 
021160 
0ril62 
021164 
021170 
021172 

021174 
021200 
021202 
021206 
021212 
021216 
021222 
021224 
021230 
021234 



104401 
013700 
012701 

104401 
112102 
042702 
010246 
104403 
003 
000 
104401 

005004 
010203 
001404 
062704 
005303 
001374 

104401 
0104% 
062716 
004737 
004737 
104401 
0104% 
062716 
004737 
004737 



021240 006302 



021242 
0212% 
021252 

021254 
021260 
021264 

021266 
021272 
021276 
021302 

021304 
021310 
021314 

021316 
021320 
021322 



104401 
0162% 
104405 

104401 
0162% 
104405 

104401 
016246 
042716 
104405 

104401 
016246 
104405 

005300 
001304 
104401 



002377 
001264 
001254 

001213 
177770 



002662 



000004 



002664 

001735 
024604 
025014 
002664 

001772 
024604 
025014 



002664 
001652 



002664 
001632 



002664 
001712 
100000 



002664 
001562 



CG2474 



REPSTfi: 



IS: 



2S: 



3S: 



TYPE 

MOV 

MOV 

TYPE 

novB 

BIG 

nov 

TYPOS 
.BYTE 
.BYTE 
TYPE 

CLR 

nov 

BEQ 
ADD 
DEC 
BNE 

TYPE 

NOV 

ADD 

JSR 

JSR 

TYPE 

nov 

ROD 
JSR 
JSR 

ASL 

TYPE 

flOV 

TYPDS 

TYPE 

MOV 

TYPDS 

TYPE 
flOV 
BIG 
TYPOS 

TYPE 

nov 

TYPDS 

DEC 
BNE 
TYPE 



REPORTS ERROR STATISTICS AND DATA-TRANSFER STATISTICS. 
.nSG2b 

6rvprs,ro 

tPDR.Rl 

,$CRLF 
lRi)+.R2 
•1777^0, R2 
R2.-(SP5 

3 

0 

, BLNKS3 
R4 

R2,R3 
3S 

•4,R4 

R3 

2S 

.BLNKSl 

ft4.-(5P) 

•NtlRTL.(SP) 

pc.soe^o 

PC.SUPRS 

.BLNKSl 

ft4.-(SP) 

•NftOL.CSP) 

PC.SO62D 

PCSUPRS 

R2 

.BLNKSl 

tSECN(R2).-(SP) 



.BLWSl 

£lC£CN(R2).-(SPl 



.BLNKSl 

6aTER(R2).-(SP) 

•100000, (SP) :DCNT TYPE A NEGATIVE NO. 



.BLNKSl 

AECN(R2j,-iSP^ 



RO 
IS 

,nSG2&A 



FINISHED UITH THE DRIVES 
BR IF NOT 

REST OF SUnflARY NESShGE 
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M813 
4814 
4815 
481b 
4817 
4818 
48iq 
4820 
4821 
4822 
4823 
482M 
482S 
4826 
4827 
4828 
482S 
48X 
H831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 

4a3q 

4840 
4841 



021324) 
021332 
021336 
021342 
021344 
0213S0 
0213S2 
0213SM 
0213S5 
Q213S6 
021362 
021364 
021370 
021374 



021376 
021402 
021406 

021410 
021412 
021416 
021422 

021424 
021426 
021430 
021434 



104401 
112102 
042702 
0102% 
104403 
003 
000 
104401 
006302 
104401 
0162% 
104405 



104401 
016246 
104405 

006202 
104401 
1162% 
10440S 

005300 
001343 
004737 
000207 



1264 
1254 
001213 

177770 



002662 

002664 
001602 



002664 
001672 



002664 
001622 



026660 



41: 



MOV 

MOV 

TYPE 

MOVB 

BIC 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

flSL 

TYPE 

MOV 

TYPOS 



TYPE 

MOV 

TYPOS 

ASR 
TYPE 
MOVB 
TYPOS 

DEC 
Bf€ 
JSR 
RTS 



DRVPRS.RO 

•PDR.Rl 

ACRif 

1r1)*.R2 

11777^0, R2 

R2.-(SP5 

3 
0 

.BLNKS3 
A2 

.BLNKSl 
§KECN(R2).- 



(SPj 



.BLNKSl 

AB0RT(R2).-^5Pj 



R2 

.BLNKSl 

filNCN(R2).-(SP. 



RO 
4S 

PC.TIMTYP 
PC 



TABLE ADDRESS 



NUMBER OF 
•DRIVES PR 
CR-LF 

DRIVE ADDRESS 

LEPVE ONLY DRIVE NUMBER 

PUT ON STACK FOR TYPEOUT 

TYPE IT IN OCTAL 

TYPE 3 CHARACTERS 

SUPRES5 -EADINC ZEROS 

3 BLANKS 

CONVERT TO A UORD TABLE INDEX 



;TYPE THE TIME 



02143b 
021MH0 
021441* 



:RKHu.Pii 



HBM2 
49H3 

4845 

4B4b 

4947 

4949 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4B57 

4858 

4859 

48b0 

4861 

48b2 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

-♦878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4899 

4690 

4891 

4892 

4893 

4894 

4895 

48% 

-»897 
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cm 
06-JUN-77 
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00504b 
01274b 
000002 



021446 



0214H6 
021452 
02145H 
021460 

021462 
021466 



005237 
001456 
105777 
100514 

005037 
012737 



001460 
157542 



001466 
177761 



001470 



021474 105737 001534 



021500 
021502 
021506 
021510 
021514 



021516 
021522 
021526 
021530 
021534 
021540 



001507 
005237 
001372 
005237 
001367 



113700 
042700 
010003 
062700 
011037 
042737 



001466 
001470 



001534 
177760 



001306 
0C1172 

177770 001172 



THIS ROUTINE . 

CONTROLLER TO PiNlSH WHfiT 



NORflALLY ENTERED WHEN THE PROGRRM IS WfilTIMG FOR TriE 

PlNlSHWHfiT IT IS DOING. THERE ARE TWO DOUBLE PRECISION 
COUNTS KEPT IN THIS ROUTINE. 

THIS^tOUNT^KEEPS TRACK OF HOU LONG THE CONTROLLCR HAS BEEN BUSY AFTER 
fl COmAND WAS INITIATED THE CONTROLLER SHOULD FINISH WHATEVER IT IS DOING 
BEFO^ THIS COUNT EXPIRED DOES NOT, THERE IS AN ERROR CONDITION ANC 

IT IS SO REPORTED. 

THIS^COUNT IS INITIALIZED EVERY TINE 8 COPIflANDS ARE GENERATED. TJC COUNT 



STATUS: CLR -(SP) ^„ 
MOV »1I,-(SP) 
RTI 



:DROP PRIORITY AfC WAIT FOR INT 
i RETURN FOR ATI 

NOTE THAT THE INTERRUPTS ARE ALLOWED ONLY 
AT CERTAIN PLACES IN THE PROGRAM. BECAUSE 
IT MAKES TROUBLESHOOTING OF FALl£)RES EfSY. 
OTHER PLACES WHERE INTERRUPTS ARE ALLOWED 
TO TAKE PLACE' 

•CHFAFN'/ FIRST INTERRUPT AFTER ISSUING 
A SEEK FUNCTION. 



IS: 



INC 
BEQ 
T5TB 
Bfll 

CLR 
NOV 



OSCNT 
OEROR 
aRKCS 
CNOBSY 

CICNT 

•-17,CICNT1 



CBSY: 



NIEROR: 



TSTB INTFLG 



BEQ SEXIT 

INC CICNT 

BNE CBSY 

INC CICNTl 

BNE CBSY 



novB intflg.ro 

BIC 1177760, RO 

nov R0.R3 

ADD IKEY.RO 

nov (R0).$REG4 

BIC •177?70.JREG4 



FOR A NON-SEEK COMAND: „ ^ 
INTFLG- BIT 7 IS SET. BITS 0-3 CONTAIN 
OFFSET TO THE COfflANO KEY i FROM KEY,. 
FOR WHICH THIS INTERUPT IS EXPCTD.. ^. 
WHEN THE INTERUPT OCCURS S 'INTHND' 15 
ENTERED 'INTFLG' IS CLEARED. 



: TIMED OUT WHILE WAITING FOR THE IN^RUF' 
[one of THE COMMANDS DID NOT INTERPLP"' 



•t)-U-DZRKHG. RKU-RKOS PERFORMflNCE EXERCISER MftCYil 30(10%) Ofc-JUN- 
DZRKHC.P11 2S-flPR-77 10:18 ROUTINE TO SIZE MEMORY 



4905 

4<: 

4908 
MSGS 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4919 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
-^9% 
4947 
4948 
4949 
4950 



0215% 


013737 


001172 001250 


MOV 


OcJ 


ecu 






TYPMSG 


02 


L560 


016305 


002032 


MOV 




i» 






MOV 
JSR 




574 




022032 


JSR 


02 


1600 






ERROR 


021602 




1 rmnnn 


BIS 


021606 


nnnuuu 




BR 


021610 


005037 


001460 QEROR: 


CLR 


021614 


004737 


022032 


JSR 


021620 


104C26 




ERROR 



021622 
021630 
021632 
021636 
021642 
0216% 
021652 
021656 
021660 
021662 
021666 
021670 
021672 
021674 
021675 
021676 
021700 



021712 
02171S 
021716 
021720 
Q§i724 
021730 



032777 
001024 
104401 
012700 
012701 
012702 
10H401 
0120% 
104402 
104401 
005046 
112116 
104403 
003 
000 
005202 
001364 



021702 004737 
021706 000137 



005004 
005204 
001376 
013746 
0127% 
000002 



020000 157310 

002305 
001306 
001426 
177770 
001213 



002662 



IS: 



016006 
010630 



001244 
021732 



2S: 



BIT 

Bt€ 

TYPE, 

MOV 

MOV 

MOV 

TYPE 

MOV 

TYPOC 

TYPE 

CLR 

MOVB 

TYPOS 

.BYTE 

.BYTE 

INC 

BNE 

JSR 

JMP 



021732 000137 010650 



CNOBSY: CLR 
INC 
BNE 

SEXIT: MOV 
MOV 
RTI 

RTIPC7: JMP 



SREG4.SRDRV 
.MSG15 

PCMN0(R3).R5 



•77 14:55 PftGE 111 

:GET DRIVE i. FOR TYPING SERImL > 
;PRINT 'DRVE • OION'T INTRUPT AFTER' 



?c,?y^Pn 

PC GT4RG 

25 : COMMAND TYPED OUT IN EROR MESftGE DIG 

:NOT INTERUPT ON COMPLETION. 
•BIT15*BIT11,(R0) ; INDICATE THAT FUNCTION IS ABCB'E: 

SEXIT 



QSCNT 

PC,GT4RG 

26 



•SU13,aSUR 
2S 

MSG16 

tKEY.RO 

tBUSY.Rl 

t-10.ft2 

.SCRLF 

(R0)*,-(SP) 

,BLNKS3 
-(SP) 

(RD^.CSP) 

3 
0 

R2 
IS 

PC.CLRERR 

BEGNEX 

R4 
R4 
.-2 

PPRLVL.-(SP) 
•RTIPC^-(SP) 

OMNGER 



REESTABLISH COUNT 

ALL 8 COHHANOS SHOULD BE DOf€ BY NOU. TIMEC 
OUT. THE PROGRAM IS UAYtINC FOR ONE OF THE 
COMTIANDS IN ThE 0 TO BE FINISHED AND THIS 
DID NOT HAPPEN OR FOR SOfC OTHER REASON THE 
'FINISHED' FLAG (BIT 15) OF ONE OF THE 8 
COMMAND KEYS HAS NOT SET. VARIOUS FLAGS 'POS' 
'BUSY' (-7). 'KEY'(-B) CONTAIN INFORMATION 
ABOUT THk STATUS OF THE SYSTEM. 

INHIBIT TYPEOUT' 
YES 



;TYPE OUT CONTENTS OF ALL KEYS 
;KEY-KEY8 



;TYPE OUT CONTENTS OF ALL BUSY FLAGS 
•BUSY-BUSY7 



;DONE' 

Ino 

:make sure there is no head movement of 
:any drive i then do control rese' 
;g0, bak and continue 



; RETURN FOR RTI «#*»«***♦*» 
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TYPI 



Ofa-JUN-77 
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; TYPFN 




4954 
4955 








; ROUTINE TO 
: FUNCTION CO 








•SU 13, 


IF S 


495£i 








BIT 


4957 


□21736 


□32777 

III 


020000 

WW wwww 


157174 TYPFN" 


4958 




tWQ31 






BNE 

Bl >W 


49&0 


021752 


001002 

A www 


□□□002 

Www WWW 




CMP 
BNE 


49E>1 


02 1754 


104401 


002133 




TYPE 


4962 


021760 


022704 


000004 


IS: 


CMP 


H%3 


021764 


001002 






BNE 


4%M 


021766 


104401 


002141 




TYPE 


4965 


021772 


022704 


000012 


2S: 


CMP 


4966 
4967 


021776 








BNE 

Ul iW 




104401 


002156 


3S: 


TYPE 


4966 


022004 


022704 

WWW * w ■ 


000006 


CMP 


4969 


022010 


001002 






BNE 


4970 


022012 


104401 


002146 




TYPE 


4971 


022016 


022704 


0000 10 


4S: 


CMP 


4972 


022022 


001002 






BNE 


4973 


022024 


104401 


002201 




TYPE 


-»=374 


022030 


000207 




5S: 


RTS 



FUNCTI 
YPEOUT 



E OUT THE 

OE St The time oi 

ET inhibits TYPE 

•SU13,aSUR 
5S 

R4,I2 
IS 

,MSG6 
•4,R4 
2 J 

,MSG7 
112, R4 
3S 

,MSG9 
lb,R4 
4i 

,MSGB 
lllO,R4 
5S 

.MSGll 
^C 



ON (READ, WRITE, ETC) 
NTRY. 



INHIBIT TYPEOUT' 
uSfTE' 

READ' 

READ CHECK' 
WRITE CHECK' 
;SEEK' 



;R4 CONTAINS THE 



JU4 
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4975 
4976 
4977 
4579 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
498fc 

4989 
4990 
4991 
4992 
4993 
499H 
4995 
49% 
4997 
4996 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5008 
5007 
5006 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
501& 



D4C 
0220% 
354 



022064 
022070 



02c 
02c 



022076 



022 

02! 
022 
022 
022 
022 
022 
022 
022 
022 
022 



172 
I7H 



02 
06 
10 
14 
16 
20 
22 
2H 
26 
30 
34 
36 
40 



022142 
0221% 
022150 
022152 
022156 
022160 
022162 
022164 
022166 



Q17737 
017737 
017737 
017737 
000207 



004737 
010046 
010146 
010246 
012700 
017701 
010102 
042702 
010240 
006201 
006201 
006201 
006201 
010102 
042702 
010240 
006201 
010102 
042702 
010240 
000301 
042701 
010140 
012602 
012601 
012600 
000207 



;GT4RG 

J GET CONTENTS OF RKCS, RKER, RKDS, RKDAft 



157172 
157156 
157146 
157136 



001170 
001162 
001164 
001166 



GT4RG: 
GT3RG: 



MOV 
MOV 
MOV 
MOV 
RTS 



9RK0A,SREG3 
SRKCSlSREGO 
SRKER.SREGl 
^RKD5,SREG2 



GE T I NF 

THIS ROUTINE GETS CONTENTS OF RKCE. RKER, RKDS. THEN IT BREAKS DOUN^THE^ 
CONTENTS OF RKDfl INTO ITS COMPCNENt: CYLInDER, SECTOR, SURFACE ftND DRIVE 
NUMBER. 



022040 



001200 
157122 

177760 



GET INF: 



177776 

177400 
177770 



JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIC 

MOV 

A5R 

ASR 

ASR 

ASR 

MOV 

BIC 

MOV 

R5R 

MOV 

BIC 

MOV 

SUAB 

BIC 

MOV 

MOV 

MOV 

MOV 

RTS 



PC,GT3RG 

RO,-(SP) 

Rl -(SP) 

R2l-(SP) 

lSftEG642,R0 

SRKOP.Rl 

R1.R2 

•1?7760,R2 

R2,-(R0) 

Rl 

Rl 

Rl 

Rl 

R1.R2 
•1^7776, R2 
R2,-(R05 
Rl 

R1.R2 
•1>7M00,R2 
R2,-(R0i 
Rl 

•177770, Rl 

R1.-(R05 

(S^)+,R2 

(SP)+,R1 

(SP)+ RO 

PC 



?.R^i^3^r- im^9^ W""' ^'TOrc fg'^ikM^ 



Ob-JUN-77 
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5017 

sop 



502S 
5026 
5027 



5030 
5031 
5032 
5033 
503M 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5046 



022170 
022176 

022200 
022220 



042766 
000241 
006166 
006166 

Solill 

000207 



022226 
022232 
022236 
022242 



017746 
004737 
012637 
000207 



017777 000002 

000002 
000002 

""002 
002 



022222 004737 022032 



156776 
02217C 
001250 



;PU5H NO. TO BE ROTATED ON STACK 



;CR0TLF 

I THIS ROUTINE ROTfttES BITS 15. 14, 13 OF P UORD INTO BITS 2, 1, 0. THE 
•REST OF THE BITS OF THE ROTfltED tlORD ORE CLEftRED. 



CROTLF: BIC 
CLC 
ROL 
ROL 
ROL 
ROL 
RTS 



•17777, 2(SP) 

2(SP) 
2(SP) 
|(6P) 
2(SP) 
PC 



;RG4SDRV 

•CALL- JSR PC RG4SDRV 

; THIS ROUTINE GETS' THE CONTENTS OF RKDS, RKER, RKCS, RKDfi. THEN 
IT SAVES THE DRIVE NUMBER FROM RKDA IN 'SRDRV'. 
ftG4S0R: JSR PC,GT4RG ;GET RKCS, ER, DS, DA 



GTSDRV 

CALL: JSR PC. GTSDRV 

THIS ROUTINE EXTRACTS THE DRIVE • FROtI RKDA (BITS 15,14,13) Af© SA'^ES 
IT IN -SRDRV- (BITS 0,1,2) 



GTSDRV: MOV 
JSR 
MOV 
RTS 



aRKDA.-(SP) 

pc.cr6tlf 

(SP)+, SRDRV 
PC 



:GET bits 15,14,13 FROM RKDA 
;SAVE THE DRIVE • 
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sowg 

5050 
5051 
5052 
5053 
50SM 
5055 
5056 
j7 

5QSS 
SObO 
50bl 

50b3 
5064 
5065 



322244 
022250 
0222S6 

022274 
022276 
0223Q2 
022304 
022306 
022310 
022314 
116 



5068 
506<3 
5070 
5071 
5072 
5073 
5074 
5075 



022326 
022332 
022336 
022342 
022344 
022350 
022352 
022354 



005037 
013777 
012777 

001026 
012746 
005216 
001376 
005726 
005237 
001364 
032777 
001012 
104401 
104401 
104401 
011646 
162716 
104402 
000002 
000000 



022354 
001502 
000015 

000100 

177760 

022354 
020000 

001213 
027746 
002206 

000002 



.SBTTL DRV. RESET - DRIVE RESET ROUTINE 
DRV. RESET - DRIVE RESET ROUTINE 

IF R/W/S RDY DOES NOT SET UITHIN fl CERTAIN TIME OF DOING DRIVE RESET 
AN ERROR IS REPORTED. 



156752 
156736 



DR.RST: 



156722 IS: 



156614 



2S: 

TI10UT: 



CLR 
MOV 
MOV 

g?? 

BNE 
MOV 
INC 
BNE 
TST 
INC 
BNE 

§NE 

TYPE 

TYPE 

TYPE 

MOV 

SUB 

TYPOC 

RTI 

0 



RDY 



TIMOUT 

QDRV.aRKDA 

•IS.dRKCS 

•lOO.SRKDS 
2S 

i-20,-(SP) 

(SP) 

.-2 

(SP) + 

TIMOUT 

IS 

i|ui3,asuR 

,$CRLF 
,EM4 
MSG12 
(SP).-(SP) 
12, (SP) 



;DID R/W/S RDY SET' 
;YES 

NO, WAIT FOR R/W/S 



INHIBIT TYPEOUT' 
YES 

TIMED OUT. R/U/S RDY DID NOT SET 
REPORT ERROR 
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14:55 PAGE lib 




50% 
50% 
50S7 
5096 
50% 
5100 
5101 



5104 



022S3S 
02243H 
0224H0 
022H42 
0224% 

022512 

oiiiib 

022520 



8& 



2777 QOOOQl 
5037 001472 



1057'7 

4!i^ 

00521b 
001376 

m 

001365 
032777 

0116% 
l&271b 
104402 
104401 
000421 



017746 
104402 
000002 



'5bb2b 
177750 



001472 
020000 
002206 
000002 
022450 



156504 



156636 



156514 



.S8TTL CON. RESET - CONTROL RESET ROUTINE 
CON.RESEr 

CONTROL RESET ROUTINE 
CON. ROY 

CONTROL READY ROUTINE 



CN.RST: 
CN.RDY: 
IS: 



:;65J: 
44S: 



2S: 



NOV 

CLR 

TSTB 

BMI 

MOV 

INC 

BNE 

TST 

INC 

BNE 

BIT 

MOV 

SUB 

TYPOC 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOC 

RTI 



•l.aRKCS 

tiAer 

SRKCS 

•-30, -(SP) 

(SP) 

.-2 

(SP) + 

TIMER 

IS 

t5Ul3,95UR 

fMSGl2 
{SP).-(SP) 
12, (SP) 

,65S 
&4S 



:DID CONTROL ROY SET' 
;uS?T FOR CNTRL ROY 



INHIBIT TYPEOUT' 



S?RL 



RDY DID NOT SET, REPORT ERROR 



;;TYPE fiSCIZ STRING 
:GET OVER THE flSCIZ 



<15><12> /CONTROLLER NOT REftDY - RKCS=/ 
SRKCS, -(SP) 
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N09 



5108 
510S 
5110 

sua 

5113 
5114 
5115 
SUE) 
5117 
5118 
5119 



022522 
022530 
022532 
022540 
022S42 

022544 
022550 



032777 
001005 
017b37 
104401 
000000 

0b271b 
000002 



020000 
000000 

000002 



15b410 
022542 



MfiCYll 30(1 04b) OS-JUN-77 14:55 PAGE 117 
TYPE MESSftGE ROUTINE (SU13) 



.SBTTL TYPflSG - TYPE MESSAGE ROUTINE (SW13) 

JhfS^UTINE IS USED FOR MESSOGE TYPEOUTS. IF 5U 13 IS SET THE TYPEOUT 
IS SKIPPED. 



CALL: 
TY.nSG: 

IS: 
2S: 



TYPMSC 
POINTER 

BIT 
BNE 
MOV 
TYPE 
.UORD 



ADD 
RTI 



•SU13,aSUR 

ss 

3(5P),1S 
0 

•2,(SP) 



; POINTER TO THE ASCII MESSAGE STRING 

•.INHIBIT TYPEOUT' 
;YES 

;GET POINTER TO ASCII STRING 



.•ADJUST RETURN ADDRESS TO SKIP OVER POINTER 
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5120 
5121 
5122 
5123 
512S 
5125 
512& 
5127 
5128 
S12S 
SIX 
5131 
5132 
5133 
513M 
5135 
513b 
5137 
5138 
513^ 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
514S 
5150 
51S1 
5152 
5153 
5154 
5155 



022552 00S237 001560 

022556 001401 

022560 000002 

022562 012737 177704 001560 

022570 005237 001556 

022574 001401 

022576 000002 

022600 012737 177704 001556 

022606 005237 001554 

022612 001005 

022614 012737 17770^ 001554 

022622 005237 001552 

022626 000002 



022630 013746 022652 

022634 005237 022654 

022640 001375 

022642 005216 

022644 001373 

0226% 005726 

022650 000207 

022652 17773C 

022654 000000 



.S8TTL KWSRVE - KWilL CLOCK SERVICE ROUTINE 
THIS ROUTirC SERVICES THE INTERRUPT FROM THE KWIU LINE CLCCK 
WD KEEPS TRftCK OF ELAPSED TIME. _ , 

KUCOUNT- CONTfilNS CYCLES (PER SECOND) (2-S COMPLENEMT) 
KWSEC- CONTAINS SECOfCS (2'S COffLENENT) 
KHIIN- CONTAINS MINUTES (2'S CONPLENENT) 
KUHR- CONTAINS HOURS (2'S COMPLEMENT) 



KUSRVE: INC 
BEQ 



IS: 



2S: 



3S: 



RTI 
MOV 
INC 
BEQ 
RTI 
MOV 
INC 
BNE 
(10V 
INC 

RTI 



KWCOUNT 
IS 

1-60., KWCOUNT 

KUSEC 

2S 

1-60., KUSEC 

KUMIN 

3S 

•-60., KUMIN 
KUHR 



; COUNT 60 CHS 
;OVERFLOUED' 

RESET 60 CPS COUNT 
COUNT SECONDS 
OVERFLOUED' 
RETURN 

RESET -SECOrCS" COUNT 

COUNT MINUTES 

OVERFLOUED^ 

RESET -MINUTES" COUNT 

COUNT HOURS 

; RETURN 



-UPTIME 

I ROUTINE PROVIDES SOME UPITING TIME. 



UATIME: 


MOV 


2$,-(SP) 


IS: 


INC 


3$ 




BNE 


IS 




INC 


(SP) 




BNE 


IS 




TST 


(SP)* 




RTS 


PC 

177730 


25: 


.UORD 


3S: 


.WORD 


0 



COUNTER VALUE 
COUNT 

HANG IN THERE UNTIL COUNT WRAPS APClN 
COUNT AGAIN 

GO THROUGH MINOR LOOP AGAIN 
RESTORE THE STACK POINTER 
RETURN 

VALUE FOR APPROX IS SEC DELA^ 
•MINOR" LOOP COUN-^ER 



TD-il-CrRKHG. 

orR^HC. Pi: 



515£> 
5157 
5158 
5159 
51b0 
51bl 
51b2 
51&3 
51b4 
51b5 
Slbb 
51b7 
51be 
5lb<3 
5170 
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Q2265b 
Q226ba 
Q22bb4 
Q22bb6 
022672 
022b7b 
022702 



005737 00l2bH 

001401 

000207 

104401 002225 
004737 022b30 
01270b 001100 
000400 



EXERCISER MftCYU 3Q(104b) Ob-JUN-77 14:55 PRGE IIS 
KUSRVE - KUllL CLOCK SERVICE ROUTINE 

CHPDRS 

THIS ROUTINE CHECKS IF THERE fiNY DRIVES PRESENT (ON LINE). IF THERE 
fWE, fl RETURN IS HftOE. IF THERE ARE NONE PRESENT. P MESSft&E IS PRINTED OLT. 
THE STOCK POINTER IS RE-INITIflTED TO 1100 AND CONTROL IS TRANSFERRED 
TO THE Ere OF PASS ROUTINE, $E0P. BEFORE PASSING CONTROL TO lEOP. SOME 
TIME IS KILLED (UATIME), TftiS IS DONE TO KEEP THE NUMBER OF NESSAGES 
I END OF PASS IX) TO A SMALL AtOUNT. 



CHDPRS: 



IS: 



TST 

BEQ 

RTS 

TYPE 

JSR 

MOV 

BR 



DRVPRS 
IS 

PC 

.M5G14 
^C.HATIME 
•STACK. SP 
SEOP 



ANY DRIVES PRESENT' 
NO 

fES, EXIT 

no, give a message 
kiCl some time 
reinitialize stack 
go to end of pass oo'-tine 



31/ i. 



•C U-OrRKHC. Rk^.-RkOS PERFORflflNCE EXERCISER flACYil 30(lOMb) 
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5173 
5174 
5175 
517& 
5177 
5178 
5173 
518G 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
518S 
5190 
5191 
SI'S 
5193 
5194 
5195 
51% 
5197 
5198 
5199 
520C 



022704 

022704 OOOOOM 

Q2270b 005037 0C1102 

022712 005237 001100 

02271b 042737 100000 

G2272S 005327 

022726 000001 

Q227X 0C3Q13 

022732 012737 

022734 000001 

022736 022726 

022740 013700 000042 

022744 001405 

0227% 000005 

022750 004710 

022752 000240 

Q227SM 000240 

022756 000240 
022760 

022760 000137 

022762 013630 



001 100 



.SBTTL ENO OF PfiSS ROUTINE 



tlNCRENENT THE PASS NU^BER (SPfiSS) 

»INDICflTE END-OF-PROGRftH RFTER 1 PfiSSES THRU THE PROGRAH 
*IF THCRES A nONITOR GO TO IT 
tIF THERE ISN'T JUMP TO BEGNEX 



SEOP: 

SCOPE 

CLR 

INC 

BIC 

DEC 

JEOPCT: .UORD 
BGT 

nov 

SENDCT: .UORD 
SEOPCT 

JGET42: NOV 
BEQ 
RESET 

SENOAO: JSR 
NOP 
NOP 
NOP 

SDOAGN: 

JflP 

SPTNAC: .UOPD 



STSTNfl 
IPASS 

1100000, IPASS 

(PC)t 
1 

lOOAGN 

(PC)*.a(PC)+ 
1 

aiH2.P0 

SOOA&N 
PC,(RO) 



a(PC)* 

BEGNEX 



;:ZERO THE TEST NUMBER 

: ; INCREMENT THE PASS NUMBER 

: DON'T ALLOU A NEG. NUMBER 
;;LOOP' 

• "YES 

I -RESTORE COUNTER 



GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE UORLO 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACTll 



;; RETURN 
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LiU 

Ob-JUN-77 
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5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

52CS 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

521'3 

5220 

5221 

5222 

5223 

522M 

5225 

522E> 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

523M 

5235 

5236 

5237 

5238 

523S 

5240 

5241 

5242 

5243 

5244 

5245 

52% 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

52S4 

5255 

5256 



.SBTTL TTY INPUT ROUTINE 



022764 
022772 
022774 
023000 
023002 
023006 
023012 
02X16 
023020 
023026 

0230X 
023034 
023040 
023044 
0230% 
0230S2 
023054 
023056 
023062 

023064 
023070 



023074 
023100 
023102 
023106 
023112 



023114 
023120 
023122 
023126 
0231X 
023136 
023142 
0231% 
023154 
023156 
023164 
023166 
023172 



022737 
001074 
105777 
100071 
1177% 
042716 
022726 
001062 
123727 
001456 

104401 
104401 
0137% 
104402 
104401 
0050% 
0050% 
105777 
100375 

117746 
042716 



021627 
001005 
104401 
062706 
000757 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
123727 
001003 
012777 
000002 
004737 
021627 



156062 



156056 
177600 



000025 

023504 
000006 



000015 

000004 

000002 
000006 
001213 
001135 

000100 

024414 
000060 



.ttm. LSB 



000176 
156144 

156140 
177600 
000007 

001134 OOOQQl 



023511 
023516 
000176 

023527 



001140 tCKSUR 



4S0FTMRE SUITCH REGISTER CHANGE ROUTINE. 
;»ROUTINE IS ENTERED FROM THE TRRP HRNOLER. AND MILL 
tSERVICE THE TEST FOR CHANGE IN SOFTHfiRE SuiTCH REGISTER TPftP Cfil 
»MHEN OPERfiTING IN TTY FLAG MODE. 

;:IS THE SOFT-SUR SELECTED' 
;;BRANCH IF NO 
. .^HAR THERE'' 

;;IF NO. DON'T WAIT AROUND 
;;SAVE thC CHAR 

STRIP-OFF THE ASCII 
;;IS IT A CONTROL G' 
;;N0. RETURN TO USER 
;;ARfe UE RUNNING IN AUTO-NODE' 
;; BRANCH IF YES 



ISS: 
71: 



156002 

000001 
155760 



W: 
20S: 

IDS: 



US: 
14$: 



15S: 
16S: 



CNP 
BNE 

TSTB 

BPL 

nOVB 

BIC 

CNP 

BNE 

CtlPB 

BEQ 



l|UREG,SUR 

SSTKS 
15S 

aSTKB.- 
•tC17>, 
•7. (SP5+ 

isi 

SAUTOB.Il 
15S 



(SP) 
(SP) 



TYPE 

SGTSMR: TYPE 
NOV 
TYPOC 
TYPE 
CLR 
CLR 
TSTB 
BPL 

NOVB 
BIC 



CNP 

BNE 

T^PE 

ADD 

BR 



CUP 

BNE 

TST 

BEQ 

NOV 

ADD 

TYPE 

CNPB 

BNE 

MOV 

RTI 

JSR 

CflF 



.SCNTLG 

.snsuR 

§UREG,-(SP) 

.SNNEU 

-(SP) 
-(SP) 
aSTKS 
7S 

aiTKB.-iSP; 
•tC17*.(SP) 



(SP).I25 
lOS 

.ICNTLU 
46.SP 



(SP),fl5 
16S 

4(SP) 

lis 

2(SP),aSUR 
•b.SP 

.s6rlf 

ilNTAG.ll 
15S 

•100,aSTKS 

PC.STYPEC 
(SP).«b0 



;ECHO THE CONTROL-G (tG) 
;TYPE CURRENT CONTENTS 
;SAVE SUREG FOR TYPEOUT 
;G0 TYPE— OCTAL ASCIKALL DIGITS. 
PROMPT FOR NEW SUR 
; CLEAR COUNTER 
:THE NEW SUR 
;CHAR THERE' 
;IF NOT TRY AGAIN 



;;PICK UP CHAR 
;;nAKE IT 7-BIT ASCII 



;;IS IT A CONTRa-U^ 
;; BRANCH IF NOT 
;;YES. ECHO CONTROL-U (tU) 
;IGn6RE PREVIOUS INPUT 
LET'S TRY IT AGAIN 



; IS IT A <CR>' 
; BRANCH IF NO 

YES, IS IT THE FIRST CHAR" 

;BRAf»CH IF YES 

;SAVE NEU SUR 

; CLEAR UP STACK 

.•ECHO <CR> AND <LF> 
;: RE-ENABLE TTY KBD INTERRUPTS^ 
; BRANCH IF NOT 

1 RE-ENABLE TTY KBD INTERRUPTS 

RETURN 
;ECriO CHAR 

CHAR < 0" 
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5257 

5258 

5259 

52b0 

5861 

5262 

5263 

526M 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5295 

5296 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 

5295 

52% 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 

£312 



023176 
023200 
023204 
023206 

023220 
023222 
023224 
023226 
023232 
023236 
023240 
023244 



0232% 
Q232S0 
Q232Sb 
023262 
023264 
023272 
Q233G0 
023306 
023310 
023314 
023316 
023322 
023326 
023332 
023334 
023336 
023344 
0233% 
023354 
023356 
023364 



002420 
021627 
003015 
042726 

006316 
00631b 
006316 
005266 
056616 
000707 
1044C1 
000720 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
1177% 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



000067 

OOCObO 
000002 



000002 
177776 

001212 



000004 
155662 

155656 
177600 
000004 

155630 

155624 
177600 
000021 



000004 
000004 
00004G 



000002 



000004 
000004 
000023 



000140 
000175 
000004 



BLT 
CMP 
BGT 
BIC 
TST 
BEO 
PSL 
ASL 
ASL 

17$: INC 
BIS 
BR 

18$: TYPE 
BR 

.DSABL LSB 



18$ 

(SP),lfe7 
18$ 

•bO.(SP)+ 

2iSP) 

17$ 

(SP) 

(SP) 

(SP) 

S(SP) 

-2(SP),(SP) 
7$ 

.$OUES 
^OS 



BRANCH IF YES 

CHAR > 7' 

BRANCH IF YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CHAP 

BRANCH IF YES 

NO, SHIFT PRESENT 
CHAR OVER TO MAKE 
ROOM FOR NEU ONE. 

KEEP COUNT OF CHAR 

SET IN NEU CHAR 

GET THE NEXT ONE 

TYPE '<CR><LF> 

SIMULATE CONTPOL-U 



4thIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 



ftCALL: 
ft 
ft 



;ft 




$ROCHR: 


MOV 




MOV 


1$: 


TSTB 




BPL 




novB 




BIC 




CflP 




BNE 


2$: 


TSTB 




BPL 




MOVB 




BIC 




CMP 




BNE 




BR 


3$: 


CMP 




BLT 




CMP 




BGT 




BIC 


4$: 


RTI 



ROCHR 

RETURN HERE 



(SP),-(SP) 
4(SP5,2(SP) 
aSTKS 
1$ 

a$TKB.4(SP) 
•tC<177>.4(SP) 
4(SP),I23 
3$ 

a$TKS 
2$ 

a$TKB -(SP) 
itC17^(SP) 

(SP)+.i2i 

2S 
IS 

4(SP),I140 
4$ 

4(SP).I175 
4$ 

•40,4(SP) 



ANY 



INPUT A SINGLE CHARACTER FROM THE T-^ 
CHARACTER IS ON THE STACK 
UITH PARITY BIT STRIPPED OFF 



PUSH DOUN THE PC 
SAVE THE PS 
UAIT FOR 
A CHTWACTER 
READ THE TTY 
GET RID OF JUNK IF 
IS IT A CONTROL-S" 
BRANCH IF NO 
UAIT FOR A CHARACTER 
LOOP UNTIL ITS THERE 
GET CHARACTER 
HftKE IT 7-BIT ASCII 
IS IT A CONTROL-Q' 
IF NOT DISCARD IT 
YES. RESUME 

IS It upper CASE' 

BRANCH IF YES 
IS IT A SPECIAL CHAR 
BRANCH IF YES 
MAKE IT UPPER CASE 
GO BACK TO USER 



iTHIS ROUTINE UILL INPUT A STRING FROM THE 
ftCALL: 

ft RDLIN 
♦ RETURN HERE 



TTY 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER UILL BE ON THE STACK 
TERMINATOR UILL BE A BYTE OF ALL O'S 



023366 
023370 
□23374 



010346 

012703 023474 
022703 023504 



SRDLIN: MOV R3.-(SP) 
1$: MOV l$tTYlN.R3 
2$: CMP rtTTYIN+B-.PS 



;SAVE R3 
;GET ADDRESS 
: BUFFER FULL' 
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Li 1 U 
Ofa-JUN 



5313 
5314 
5315 
531& 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
532M 
532S 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
533S 
533S 
533b 
5337 
5338 
5339 



023S00 
023402 
0234CS 
023408 
023412 
023414 
023420 
023422 
02342& 
023432 
023438 
023440 
023444 
023450 
023452 
023454 
023482 
023470 
023472 
023473 
023474 
023S04 
023511 
023518 
023524 
023527 
023534 



101405 
104410 
112813 
122713 
001003 
104401 
000783 
111337 
104401 
122723 
0013S8 
105083 
104401 
012803 
U11848 
018888 
012788 
000002 

000 

000 
000010 
052538 

138 
005015 
020075 

040 
038440 



000177 

001212 

023472 
023472 
000015 

177777 
001214 



000004 
023474 



005015 
008507 
053523 
000 
047040 
000040 



000002 
000004 



000 
000012 
020122 



10$: 

4J: 

3S: 



9S: 

JTTYIN: 
JCNTLU: 
SCNTLG: 
SNSUR: 



BL05 

RDCHR 

MOVB 

CURB 

BNE 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

10V 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ftSCIZ 

.ASCIZ 

.flSCIZ 



4t 



053505 IMNEU: .flSCIZ 



(SP)*, (R3) 
•177. !R3) 
3S 

, SQUES 

Is 

(R3),9J 

Ill5, (R3) + 
2S 

-1(R3) 
,$LF 

!SP)*.R3 
(SP).-(SP) 
4(SP).2(SP) 
•JTTYlN,4(SP) 

0 
0 
8. 

/tU/<l5><l2> 
/tG/<15>a2> 
<15><12>/SUR : 

' NEU = / 
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BR IF YES 

GO RERD ONE CHflRflCTER FROf^ ''HE '^f 
GET CHftRRCTER 
IS IT R RUBOUT 
SKIP IF NOT 
TYPE fl 

CLERR THE BUFFER RND LOOP 
ECHO THE CHfiRftCTER 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLERR RETURN (THE 15) 
TYPE R LINE FEED 
RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF 
FIRST ASCII CHARACTER ON T 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 
TERMINATOR 

RESERVE B BYTES FOR TTY INPU"^ 
.CONTROL "U" 
; CONTROL "G" 



RFORflflNCE EXERCISER. fWCYU 3.0ii0%i 



REAI 



HiO 

, Ob-JUN-77 

ON OCTAL NUMBER FROH THE TTY 
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023540 
023542 

023554 
023556 
023560 
023562 
023564 

023572 
023574 
?35 



m Hi 




023614 
023616 
023620 
023624 
023630 
023632 
023634 
023636 
023640 



.SBTTL REftO «N OCTAL NUMBER FROM THE TTY 



*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROr* ''HE Tfy ANC 
tCHANCE IT TO BINARY. 
tCALL: 

» RDOCT 
* RETURN HERE 



011646 

016666 000004 
0100% 
010146 
010246 
104411 
012600 
005001 
005002 
2046 
1412 
006301 
006102 
QQ6301 
006102 
G06301 
006102 

716 177770 
'601 
000764 
005726 

010166 000012 

010237 023640 

012602 

012601 

012600 

000002 

300000 



000002 





nu • 




1 lUV 




MOV 




nu • 




MOV 


la. 


QDl TN 




Mnv 

nu • 








Pi P 




nUVD 


DG>W 












A5L 




ROL 




ASL 




ROL 




Si8 

BR 


3S: 


TST 




MOV 




MOV 




MOV 




MOV 




MOV 




RTI 


JHIOCT: 


.UORO 



(SP),-(SP) 
4(SP).2(SP) 
RO,-(§P) 
Rl -(SP) 
R2.-(SP) 

(SP)*,RO 

Rl 

R2 

^RO)+.-(SP) 

Rl 
R2 

Rl 

R2 
Rl 
R2 

2S 

(SP) + 

R1,12(SP) 

R2.SHI0CT 

(S^)+,R2 

(SP)*,R1 

(SP)+,RO 



READ AN OCTAL NUMBER 
LOU ORDER BITS ARE ON TOP OF THE S'hC 
HIGH ORDER BITS ARE IN SHIOCT 



PROVIDE SPACE FOR THE 

INPUT NUMBER 

PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

READ AN ASCIZ LINE 

GET ADDRESS OF 1ST CHARACTER 

CLEAR DATA UORD 



;:»B 



LOOP 

CLEAN TERMINATOR FROM STSCf 
SAVE THE RESULT 

POP STACK INTO R2 
POP STACK INTO Ri 
POP STACK INTO RQ 
RETURN 

HIGH ORDER BITS GC HERE 



liU 

: U C:e»^-. Ft:. R^:5 PERFORIftNCE EXERCISER 30(10%; Ob- JyN-77 

^RkAg ^^:*p5 ^S-iS ft^fift fl DECIMAL NUMfiER PROM THE TTY 
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5378 
5379 

ill? 

5382 
5383 
5384 
5385 
5386 
5387 
5388 
538S 
53<30 
5391 
5392 
5393 

^ 

53% 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
54^ 
54M 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
S^33 



.SBTTL REfiD ft DECIMAL NUMBER FROM THE TTY 

♦this routine UILL REflO fl DECIMAL (ASCII) NUMBER FROM THE TTY AND 
iCHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTER 
»ARE READ A FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED 
»THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY 'HE 
»USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER 16 
♦POSITIVE 32767 TO NEGATIVE 32^68. 
*CALL: 

* RDDEC ;;READ A DECIMAL NUMBER 

» RETURN HERE ;; NUMBER IS ON TOP OF THE STACK 





ni iMti 




5RDDEC" 


MOV 


□23644 


ODOO 


000004 




MOV 


023652 


D10DH6 






MOV 
MOV 


023656 


010246 






MOV 


UC<JDDiJ 


1 n44 1 1 




IS- 


RDLIN 

All 


023662 


012600 






MOV 


023664 


010037 


024010 




MOV 


023670 








CLR 


023672 


005002 






CLR 


02367M 


122710 


000055 

wwww w w 




CMPB 


023700 


001001 






BNE 


023702 


112002 






MOVB 


0237U4 


112001 




2S: 


MOVB 


023706 


001424 






BEQ 


023710 


122701 


000060 




CMPB 


023714 


003032 






BGT 


(53716 


1227E)1 


000071 




CMPB 


023722 


002427 






BLT 


023724 


032716 


170000 

A ■ WW WW 




BIT 


023730 


001024 






BNE 


023732 


006316 






ASL 


02373H 


011646 






MOV 


023736 


006316 






ASL 


0237M0 


006316 






ASL 


0237M2 


062616 






ADD 


023744 


102416 






BVS 


0237% 


162701 


000060 




SUB 


023752 


060116 






ADO 


02375H 


102412 






BVS 


023756 


000752 






BR 


023760 


005702 




3S: 


TST 


023762 


001401 






BEO 


023764 


005416 






NEG 


023766 


012666 


000012 


4J: 


MOV 


023772 


012602 






MOV 


023774 


012601 






MOV 


023776 


012600 






MOV 


024000 


000002 






RTI 


024002 


005726 




5S: 


TST 


024004 


105010 






CLRB 



(SP),-(SP) 
4(SP).2(SP) 

R2,-(SP) 



(SP)*,RO 
RO.bJ 

-(SP) 
R2 

••-,(R0) 
2S 

(RQ)+,R2 
(RO)* Rl 
31 

•'0,R1 
51 

•^9,R1 
5S 

•tC7777,(SP) 
5S 

(SP) 

(SP),-(SP) 

(SP) 

(SP) 

(SP)+,(SP) 
5S 

Rl.(SP) 

5S 

2S 

R2 

4S 

(SP) 

(SP)+,12(SP) 
(SP)+,R2 
(SP)+,R1 
(SP)*,RO 



(SP) + 
(PQ) 



PROVIDE SPACE FOR 
THE INPUT NUMBER 

PUSH R2 ON STACK 

REAO AN ASCIZ LINE 

ADDRESS OF 1ST CHAR. 

SAVE INCASE OF BAD INPUT 

CLEAR DATA WORD 

SIGN SET POSITIVE 

SEE IF A MINUS SIGN WAS TYPED 

BR IF NO MINUS SIGN 

SAVE FOR LATER USE 

PICKUP THIS CHARACTER 

GET OUT IF ZERO 

MAKE SURE THIS CHARACTER 

IS A DIGIT BETWEEN 0 S 9 



DON'T LET NUMBER GET TO BIG 
BR IF NUMBER WOULD OVERFLOW 
*2 

SAVE FOR LATER 

»4 

»B. 

»10. 

OVERFLOW ISN'T ALLOWED 
STRIP AWAY THE ASCII JUNK 
ADO IN THIS DIGIT 
OVERFLOW ISN'T ALLOWED 
LOOP 

CHECK IF NUMBER IS NEG 
BR IF NO 

YES— NEGATE THE NUMBER 
SAVE THE RESULT 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 



:: CLEAN PARTIAL NUMBER FROM SThCk, 
:!SET fl TERMINATOR 



PERFORMANCE EXERCISER MACYll 30(10%^ Ob-JUh-77 
10:18 RE«D fl DECinflL NUMBER FROfI THE TTY 



543M 024006 104401 

m mm mm ^212 

5437 02401b 000720 



bS: 



TYPE 
SR 



?JQUES 
IS 



14:55 PAGE 12b 

TYPE THE INPUT UP 
TRY AGAIN 



TO BAD CHAP. 



1.10 

Mi'm"'- ""B§5?RT mi ?8'i?3!;^ ^ 



PAGE 127 



54H2 

5443 

54MM 

5H45 

54% 

5447 

5448 

544<3 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

545S 

5460 

5%1 

5462 

5463 

5%4 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

547S 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5H92 

5M93 



024020 
024020 
024022 
024024 
024026 
024030 
024032 
024036 
024042 
024044 
0240% 
024054 
024056 
024062 
024066 
024070 
024074 
024076 
024100 
024102 
024104 
024106 
024110 
024112 
024114 
024116 
024120 
024122 
0241X 
024134 
024140 
024142 
024144 
024150 
024152 
024154 
024156 
024160 
024162 
024164 
024172 
024174 
024176 
024200 



0100% 
010146 
0102% 
0103% 
0105% 
0127% 
016605 
100004 
005405 
112766 
005G00 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
raiOQ2 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 



020200 
000020 



000055 000001 



024234 
000040 

024224 



000001 177777 

000060 

000040 



000010 



177777 17777b 



SBTTL CONVERT BINARY TO DECIHftL WiD TYPE ROUTINE 

*THIS ROUTINE IS USED TO CHftNGE ft 16-8IT BINARY NUMBER TO ft 5-DIGIT 
•SIGNED DECIHftL (ftSCII) NUMBER AND TYPE IT. DEPENDING ON UHETHER THE 
lUHBER IS POSITIVE OR NE&TIVE SPftCE OR fl MINUS SIGN WILL BE TYPED 



•BEFORE THE FIRST DIGIT OF THE NUMBER 
•REPLACED WITH SPACES. 
tCALL: 

« MOV NUM,-(SP) 
» TYPDS 



JTYPDS: 



IS: 



2S: 
3S: 



MS: 



5S: 



6S: 

7S: 



as: 



9S: 



MOV RO,-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R5.-(SP) 

MOV 126200, -(5P) 

MOV 20(SP),R5 

BPL IS 

NEG R5 

MOVB I'-.KSP) 

CLR RO 

MOV ISDBLK.RS 

H0V3 •' .(R3)+ 

CLR R2 

MOV SDTBL(R0),R1 

SUB R1.R5 

BLT 4$ 

INC R2 

BR 3S 

ADD R1,R5 

TST R2 

BNE 5S 

TSTB (SP) 

BHI 7S 

ASLB (SP) 

BCC 6S 

MOVB 1(SP).-1(R3) 

BIS I'CRS 

BIS •• ,R2 

MOVB R2.(R3)+ 

TST (RC1,+ 

CMP R0,fi0 

BLT 2S 

BQT 8S 

MOV RS,R2 

BR 6S 

TSTB (SP)+ 

BPL 9S 

MOVB -1(SP),-2(P3) 

CLRB (R3} 

MOV (SP)+,R5 

MOV (SP)+,R3 ■ 

MOV (SP)+.R2 



LEADING ZEROS UILL ALWAYS BE 



;;PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 



PUSH RO ON 
PUSH Rl ON 
PUSH R2 ON 
PUSH R3 ON 
PUSH R5 ON 
SET BLANK ! 
GET THE IN 
BR IF INPUT 



ACK 
ACK 
ACK 
ACK 
ACK 

TCH AND SIGN 
NUMBER 
S POS. 

HAKE THE BINARY NUMBER POS. 
MAKE THE ASCII NUMBER NEG. 
ZERO THE CONSTANTS INDEX 
SETUP THE OUTPUT POINTER 
SET THE FIRST CHARACTER TO A BLANK 
CLEAR THE BCD NUMBER 
GET THE CONSTAWT 
FORM THIS BCD DIGIT 
BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 
CHECK IF BCD DIGIT=0 
FALL THROUGH IF 0 
STILL DOING LEADING C'S' 
BR IF YES 
MSD' 

BR IF NO 

YES-SET THE SIGN 

MAKE T(€ BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO 00 THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO" 

BR IF NO 

YES— SET THE SIGN FOR TYPING 
SET THE TERMINATOR 
POP STACK INTO R5 
POP STACK INTO R3 
POP STACK INTO R2 



LiO 



10-U-OZRKriG RK11-RK05 PERFORtlftNCE EXERCISER MflCYll 30(i04bJ Ob-JUN-77 14:55 PAGE 12B 
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54% 024206 IOM401 024234 

5497 024212 Olbfefefe 000002 000004 

54^8 024220 0i2Slb 

54g<3 024222 000002 

5500 024224 023420 

5501 02422& 001750 

5502 024230 000144 

5503 024232 000012 

5504 024234 000004 



$OTBL: 



SCeiK: 



NOV 

NOV 

TYPE 

NOV 

NOV 

RTI 

10000. 

1000. 

100. 

10. 

.BLKU 



( 
( 

.SDBLk 

$(5P),4(SP) 
(SP)*,(SP) 



;p8p IIaJk IntS r4 
:NOU TYPE THE NUMBER 
I ADJUST THE STACK 

;; RETURN TO USER 



OZRKHG. Pu 



§^J^pR»<^§ PgRFgRMANCE EXER^I^p 



flflCYU 30(10%) 
ROUTINE 



NiO 
Ob-JUN-77 



14:55 PftGE 12S 



5505 



5508 



024252 
02H2SM 



Q2H264 

KHpO 
024272 



5534 
5535 
5536 
5537 
5538 
553S 
5540 
5541 
5542 
5543 
5544 
5545 
55% 
5547 
5548 
554S 
5550 
5551 



5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 



024302 
024306 
024310 
024314 
024316 
024320 
024322 
024324 
024330 
024332 
024336 
024342 
024344 

024350 
024354 
024356 
024362 
024366 



024370 
024374 
024400 
024406 
024410 



8 



000000 
000407 

17600 
1120% 
001005 
005726 
012600 
'716 



122716 
001430 
122716 
001006 
005726 
104401 
001213 
105037 
000755 
004737 
123726 
001350 
013746 

105366 

002770 
004737 
105337 
000770 



112716 
004737 
132737 
001372 
005726 



737 001157 



000002 

000002 
000011 
000200 

024460 

024414 
001156 

00K54 

000001 

024414 
024460 



000040 
024414 
000007 



.SBTTL TYPE ROUTINE 



^ROUTINE TO TYPE flSCIZ MESSAGE. MESSAGE MUST TERMI^^ATE UITH A 0 BYTE. 

IFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
IFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



*NCTE2 
tN0TE3 

»CALL: 
#1) USING A 
# TYPE 
»0R 

» TYPI 
» MES 
« 



TRAP INSTRUCTION 
.MESADR 



OR 



STYPE: 


TSTB 
BPL 




HALT 




DC 

on 


IS: 


P10V 




MOV 


2S: 


MOVB 




BNE 




TST 


60S: 


MOV 


3S: 


AQO 




RTI 


4S: 


CMPB 




BEQ 




CMPB 




BNE 




TST 




TYPE 




JCRLF 




CLRB 




BR 


5S: 


JSR 


6S: 


CMPB 




BNE 




MOV 


75: 


DECB 




BLT 




JSR 




DECB 




BR 



JTPFLC 
II 

3S 

RO,-(SP) 
a2(SP),R0 
(RO)*,-(SP) 
4| 

(5P) + 
(SP)+.RO 
12, (SP) 

•HT,(SP) 
BS 

•CRLF,(SP) 
51 

(SP) + 



SCHARCNT 
2S 

PC.STYPEC 

SFiLLC,(SP)+ 

2S 

JNULL,-{SP) 

KSP) 
bS 

PC.STYPEC 

SCHARCNT 

7S 



; HORIZONTAL TAB PROCESSOR 



024460 



BS: 

gs: 



MOVB 

JSR 

BITB 

BNE 

TST 



I' .(SP) 
PC,$TYPEC 
«7, SCHARCNT 

qs 

(SP) + 



I {MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IF^Y§S^ TERMINAL' 
HALT HERE IF NO TERMINAL 
LEAVE 

§ET^Ao8rESS of ASCIZ STRING 
PUSH CHARACTER TO BE TYPED ONTO STACK 
BR IF IT ISN'T THE TERMINATOR 
IF TERMINATOR POP IT OFF THE STACK 
RESTORE RO 
ADJUST RETURN PC 
RETURN 

BRANCH IF <HT> 

;; BRANCH IF NOT <CRLF> 

;;POP <CR><LF> EOUIV 
; ; TYPE A CR AND LF 

CLEAR CHARACTER COUNT 
GET NEXT CHARACTER 
GO TYPE THIS CHARACTER 
IS IT TIME FOR FILLER CHARS. ' 
IF NO GO GET NEXT CHAR. 
GET I OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 
DOES A NULL NEED TO BE TYPED' 
BR IF NO— GO POP THE NULL OFF OF STACK 
GO TYPE A NULL 
DO NOT COUNT AS A COUN'^ 
LOOP 



REPLACE TAB UITH SPACE 
TYPE A SPACw 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 



•^L DZRkHG, RK11-RK05 PERFORMfiNCE EXERCISER MflCYU 30(10%) 
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NIQ 

Ob-JUN-77 
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024M20 
024422 
0244X 
024436 
024440 
024444 
024446 
024454 
024456 
024460 
024462 



!8S5^ 154530 
100375 

116677 000002 1545c2 
122766 000015 000002 
001003 

105037 024460 ' 
000406 

122766 000012' 000002 IS 
001402 
105227 
000000 
000207 



JTYPEC: 



TB 

BPL 
nOVB 
CMPB 
BNE 
CLRB 
BR 

cnPB 

BEQ 
INCB 
SCHARCNT:.UORD 
JTYPEX: RTS 



9tps 

ITYPEC 
2(5P),aJTPB 
«CR,2(SP) 
IS 

SCHflRCNT 

STYPEX 

•LF.2(SP) 

STYPEX 

(PC)* 

0 

PC 



IS READY 



;LOflD CHAR TO BE TYPED INTO DflTfl REG. 
;IS CHfiRfiCTER fl CARRIAGE RETURN' 
BRANCH IF NO 

YES— CLEAR CHARACTER COUNT 
;EXIT 

IS CHARACTER A LINE FEED' 
; BRANCH IF YES 

COUNT THE CHARACTER 
; CHARACTER COUNT STORAGE 



t-ll-DZRKHG. RKii-RKQS PERfORflAMCE EXERCISER HACYH 30(10%) Ob-JUN-77 1H:55 PftGE 131 
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557S 

557b 

5577 

5578 

557S 

5580 

5581 

5582 

5583 

558M 

5585 

558b 

5587 

5588 

558S 

55<X] 

5591 

55% 

5593 

5594 

5595 

55% 

5597 

5596 

5599 

5b00 

5b01 

5802 

5b03 

5b04 

5bQ5 

5808 

5807 

5808 

5809 

5810 

5811 

5812 

5813 



02H%4 


104414 




024%8 


018801 


000002 


024472 


012705 


02%03 


024478 


012704 


000014 


024502 


012703 


177770 


02450b 


012100 




024510 


012101 




024512 


005002 




024514 


110245 




02451b 


010002 




024520 


005304 




024522 


003007 




024524 


001405 




Ucnco 


005205 




024530 


010588 


000002 


024534 


104415 




02453b 


000207 




024540 


008203 




024542 


008001 




024544 


008000 




0245% 


OObOOl 




024550 


008000 




024552 


006001 




024554 


oobon 




02455b 


040302 




024580 


082702 


000080 


024584 


0G0753 




024588 


000018 





,S8TTL DOUBLE LENGTH BlNf¥?Y TO 0CT«L ftSCII CONVERT ROUTINE 

• tttfttft««tt«ttttftttfttftft«tt«t«t««««ttt«fttttfttttttttttttt««*«**« 

4thIS ROUTirC HILL COWVERT 0 32-BIT UNSIGNED BINfiRY NUHBER TO AN 
tUNSIGTCO OCTRL RSCIZ NUMBER. 
•CRLL 

• NOV tPNTR.-CSP) 

• J5R PC,att0B20 

• RETURN 



; POINTER TO LOW UORO OF BINARY NUflBER 
CRLL THE ROUTirC 

THE flOORESS OF THE FIRST flSCIZ CHAP, 15 ON 



'HE S"^CK 



S0B20: SAVREG 

NOV 2(SP),R1 

NOV i$0CTVL*l3.,R5 

NOV 112., R4 

NOV •tC7,R3 

NOV (R1)*,R0 

NOV (R1)+,R1 

CLR R2 

1$: nOVB R2,-(R5) 

NOV R0,R2 

DEC R4 

BGT 3S 

BEQ 2S 

INC R5 

NOV R5,2(SP) 

RE5REG 

RTS PC 

2S: A5R R3 

3S: ROR Rl 

ROR RO 

ROR Rl 

ROR RC 

ROR Rl 

ROR RO 

BIC R3.R2 

ADO t'ei,R2 

BR IS 

JOCTVL: .BLKB 14. 



SAVE ALL REGISTERS 

PICKUP THE POINTER TO LOU UORD 

POINTER TO DATA TABLE 

DO ELEVEN ChARACFERS 

NASK 

LOUER UORO 
HIGH UORD 
TERMINATOR 

PUT CHARACTER IN DATA TABLE 

GET THIS DIGIT 

COUNT THIS CHARACTER 

BR IF NOT THE LAST DIGIT 

BR IF IT IS T« LAST DIGIT 

ALL DIGITS DOME-ADJUST POINTER FOR Fics^ 

ASCIZ CHAR, i PUT IT ON THE STACK 

RESTORE ALL REGISTERS 

RETURN TO USER 

POSITION THE MASK FOR THE LAST CIGI' 
POSITION THE BINARY NUMBER FOP 
THE NEXT OCTAL DIGr 



;HASK OUT ALL JUNK 
;nAKE THIS CHAR. ASCII 

GO PUT IT IN THE DATA 'ABLE 

RESERVE DATA TABLE 



'C-ii-DrRKHG. RKii-RKQ5 PERFORMANCE EXERCISER flACYU 3000%) Ob-JLIN-77 14:55 PftG£^132 ^ 
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5614 

5615 

5£>lb 

5bl7 

5£>16 

5619 

5620 

5621 

5622 

5623 

562S 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

56% 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

565 J 

5660 

5661 

5662 

5663 

S664 

5665 

5666 

5667 

5668 

5669 



02S60S 
02%Q6 
Q2%12 
a2%16 
Q2S622 
02S62S 
Q2S626 
Q2H63H 
02%40 
02%4M 
02%% 
Q2%50 
02S652 
024654 
02%56 
02%6a 
02H662 
02%64 
02%66 
02%70 
Q2%72 
02%7b 
02S700 
024702 
024704 
024706 
024710 
024712 
024714 
024716 
024720 
024722 
024724 
02472b 
0247X 
024732 
024734 
024736 
024740 
024742 
024744 
0247% 
024750 



104414 
016602 
012700 
010066 
012201 
012202 
012737 
012704 
012705 
005003 
161401 
005602 
161502 
002402 
005203 
000772 
062401 
005502 
062402 
022525 
052703 
11032Q 
005327 
000000 
001357 
105020 
104415 
000207 
145000 
035632 
160400 
002765 
113200 
000230 
041100 
000017 
103240 
000001 
023420 
000000 
001750 
000000 
000144 



.S8TTL DOUBLE LENGTH BINflRY TO DECIflflL ASCII CONVERT ROUTINE 

4thIS ROUTINE UILL CONVERT A 32-BIT BINARY NUHBER TO AN UNSIGNED 
tDECINAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER WJST BE 
tPOSITlVE. 
»CALL 

# MOV IPNTR.-CSP) 

* JSh PC,aiiDB2D 

♦ RETURN 



000002 
024764 
000002 



000012 
024714 
024716 



SDB2D: 



024702 



IS: 
SS: 



3$: 



000060 



4$: 



ITNPUR: 



SAVREG 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

SUB 

SBC 

SUB 

BLT 

INC 

BR 

ADO 

ADC 

ADD 

CMP 

BIS 

MOVB 

DEC 

.UORO 

BNE 

CLRB 

RESREG 

RTS 

145000 

35632 

160400 

2765 

113200 

230 

041100 
17 

103240 
1 

23420 

0 

1750 
0 

144 



2(SP),R2 

•SDEC^L.RO 

R0.2(SP) 

(R5)*,R1 

(R2)*!R2 

•10.. 

•ITNPUR, R4 

•STNPHRi2,R5 

R3 

(R4),R1 
R2 

(R5),R2 
3J 
R3 
2S 

(R4)*,R1 
R2 

(R4)*,R2 

(R5)*.(R5)* 

••0,R3 

R3.tR0)* 

(PC)* 

0 

IS 

(RO)* 
PC 



POINTER TO LOW UORD OF BINARY NUMBER 

:;THE FIRST ADDRESS OF ASCIZ 
; I IS ON THE STACK 

;;SAVE REGISTERS 
: PICKUP THE DATA POINTER 
;GET ADDRESS OF "SDECVL" STRING 
PUT ADDRESS OF ASCIZ STRING ON STACK 
•I PICKUP THE BINARY NUMBER 

:;SET UP TO DO 10 CONVERSIONS 
;; ADDRESS OF TEN POWER 

;; CLEAR PARTIAL 
■•SUBTRACT TEN POWER 

;BR IF TEN POWER TO LARGE 
ADD 1 TO PARTIAL 
;LOOP 

•RESTORE SUBTRACTED VALUE 

;;MOVE TO NEXT TEN POWER 

CHANGE PARTIAL TO ASCII 

SAVE IT 
;:DONE' 

;;BR IF NO 
; TERMINATOR 
;; RESTORE REGISTERS 
RETURN 
:1.0E09 

:1.0E08 

;1.0E07 

;1.0E0b 

:I.0E05 

;1.0E04 

:1.0E03 

:1.0EQ2 



S^^ii^p'K*- Mii^^^P Tii"'^' '"'"S^SIEe lK'8J&^?1o 0 



5670 0P*iT5Z 

5671 02M75H 



5672 
5673 
5674 
5675 



08M7S6 
02M760 
024762 
024764 



000000 
000C12 
000300 
000001 
000000 
000014 



SDECVL: 



0 

12 

0 

1 

0 

.BUB 



12. 



iSiSiL'ftscii 



cdNVERT^Oufl 



NE 



sl.OCOl 
:1.0E00 

; RESERVE STORAGE FOR WCIZ STPIN^^ 



.1 :ZRKHG. RK11-RK05 PERFORIftNCE EXERCISER 
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5£.7b 








5b77 








5678 








5679 








5680 


025000 


0100*46 
005037 




5681 


025002 


02507Q 


5682 


025006 


016600 


OOOOOM 


5683 


025012 


0O0M05 




568S 








5685 


02S01M 


0100% 




5686 


025016 


016600 


000004 


5687 


025022 


010037 


025070 


5688 


025026 






568S 


02S02b 


105710 




5690 


0250X 


X1M06 




5691 


025032 


122710 


000060 


5692 


025036 


001006 




5693 


02EQ40 


112720 


000040 


569M 


02S04H 


000770 




5695 


0250% 


005300 




56% 


02S050 


112710 


000060 


5697 


025Q5H 


005737 


025070 


5698 


025060 


001002 




5699 


025062 


010037 


025070 


5700 


025066 


lOMMOl 




5701 
5702 


025070 


000000 




025072 


012600 




5703 
570M 


02507M 


012616 




025076 


000207 





SUPRSL: 



SUPRS: 



SUPl: 
IS: 



2S: 
4S: 



5S: 

SUP2: 



nftCYU 30(1046) 06-JUN-77 14:55 PftGE 134 

TYPE NUMERICAL PSCIZ STRING, REPLACE LEADING O'S BY BLANKS 

.SBTTL SUPRS - TYPE NUMERICAL ASCIZ STRING. REPLACE LEAPING C'S BY BLANK: 
.SBTTL SUPRSL - TYPE NUMERICAL ASCIZ STRlNfi, LEFT JUSTIFY 
:NOT FROM SYSHAC 



MOV 
CLR 
MOV 
BR 

MOV 
MOV 
MOV 

TSTB 

BEQ 

CMPB 

BNE 

MOVB 

BR 

DEC 

MOVB 

TST 

BNE 

MOV 

TYPE 

.UORO 

MOV 

MOV 

RTS 



RO.-(SP) 
SU^2 

4(SP),R0 
SUPl 

RO.-(SP) 
4(§P).R0 
R0,SU^>2 

(RO) 
2S 

t'0,(RO) 
4S 

•40, (RO)* 
IJ 

RO 

••O.(RO) 

supS 

5S 

R0,SUP2 

0 

(SP)*,RO 

(SP)+,iSP) 

PC 



;SAVE RO 



;SAVE RO 

; PICKUP THE POINTER 
;SAVE FOR TYPING 

TERMINATOR' 
BR IF YES 

IS THIS AN ASCII "O"' 
NO 

REPLACE IT UITH "BLANK- 
BACKUP BY 1 
ASCII -0" 
LEFT JUSTIFY' 
NO 
YES 

GO TYPE 

; RESTORE RO 
RESTORE THE STACK 
: RETURN 



r i i 

1C-li-DZRKHG. RKil-RkOS PERFORMANCE EXERCISER MfiCYll 30(10%) Ob-JUti-77 
DZRKHC.Pll 25-flPR-77 i0:18 INTEGER MULTIPLY ROUTINE 



14:55 PfiGE 135 



5705 

¥^ 

5708 
5709 
5710 

571§ 

5713 

571M 

5715 

5715 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

572M 

5725 

5726 

5727 

5728 

5729 

57X 

5731 

5732 

5733 

573H 

5735 

573b 

5737 

5738 

5739 

57M0 

5741 

5742 

5743 

5744 

5745 

57% 

5747 

5*^8 

5749 

5750 



.SBTTL INTEGER MULTIPLY ROUTINE 



CftLL 

MOV MULTIPLER,-(SP) 

MOV MULTIPLlCftND,-(SP) 

JSR PC.aijnULT 

RETURN ;;M00UCT IS ON THE STACK 

STOCK PRODUCT 



025 lOJ 

025100 010045 

025102 010145 

025104 0102% 

02510& 005045 

025110 015501 00Q012 

025114 100002 

025115 005215 
025120 005401 
025122 015502 000014 
025125 100002 
025130 005315 
025132 005402 
025134 0127% 000021 
025140 005000 
025142 103001 
025144 050200 
0251% 005000 
025150 006001 
025152 005315 

025154 001372 

025155 022515 
025150 001403 
025152 005400 

025154 005401 

025155 005500 
025170 005726 
025172 010065 000012 
025175 010155 000010 
025202 012602 
025204 012601 
025206 012500 
025210 0002C7 



iMULT: 



IS: 



2S 
3S 
45 



5S: 



TOP 
♦2 



MOV 
MOV 

ncv 

CLR 
MOV 
BPL 
INC 
NEC 
MOV 
BPL 
DEC 
NEG 
MOV 
CLR 
BCC 
ADD 
ROR 
ROR 
DEC 
BNE 
CMP 
BEQ 
NEG 
NEG 
SBC 
TST 
MOV 
MOV 
MOV 
MOV 
MOV 
RT5 



LSB'S 
MSB'S 



RO,-(SP) 

Rl.-(SP) 

R2.-(SP) 

-(§P) 

12(SP),R1 

IS 

(SP) 

Rl 

14(SP),R2 
2S 
(SP) 
R2 

•17., -(SP) 

RO 

4S 

R2.R0 

RO 

Rl 

(SP) 

3S 

(SP)+.iSP) 

5S 

RO 

Rl 

RO 

(SP)+ 

R0,12(SP) 

Rl.lO(SP) 

(S^)*,R2 

(SP)*,R1 

(SP)4.RC 

PC 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

CLEAR THE SIGN KEY 

GET THE MULTIPLICAND 

BR IF PLUS 

SET THE SIGN KEY 

MAKE THE MULTIPLICAND POS^I.E 

GET THE MULTIPLIER 

BR IF PLUS 

UPDATE THE SIGN KEY 

MAKE THE MULTIPLIER PCSTIVE 

SET THE LOOP COUNT 

SETUP FOR THE MULTIPLY LOOP 

DON'T ADD IF MULTIPLICAND = 0 

POSITION THE PARITIAL PRODUCT ANC 
THE MULTIPLICAND 

HAS ALL BITS OF THE MULTIPLICAND BEEN ZZfiE' 
9^ IF NO 

SHOULD PRODUCT BE NEGATIVE' 
GO TO EXIT IF NO 
YES— 50 MAKE IT SO 



; CLEAR SIGN INFO. OFF OF STACK 
PUT THE PRODUCT ON THE S'ACK .MSS'5 
; LSB'S 

POP STACK INTO R2 
:POP STACK INTO Rl 
:P0P STACK INTO RC 
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5752 
















c**cu 








3' 33 








3' 30 

3/3<^ 














3' 3C3 








575'3 
















3/ Di 








57b2 








3/bJ 
3' OT 














C7CC 
3/ D3 








S/DO 

3c 














C7CQ 








3/ b~ 








C77n 

3/ fU 








3' / i 


uC3clC 


Ui J' TO 


nnnnm 




Ucxio 


Dice J' 


UC3CCu 


3/ ' J 








CT7U 

3' 


UCjCCD 


n 1 37 1 e, 

UiC' ID 


npcpcf] 

UC3C3U 


C77C 
3/ /3 


UCJCjC 


UiODJ' 


uuuuu* 


C77L. 
3/ /O 




UIDDOO 


rmnnn? 
uuuuuc 


3/ . C 


uC3C^w 






CT7Q 
3/ /a 








3i « T 


UC3C3li) 




nnnni7 


c7on 

3' OU 


UC3C3~ 






r7Q 1 

acbi 


LIC3C3C 


ni ni u£. 




C7Q3 
3' DC 


UC3COU 






3/^ OJ 


UC3COC 












nnnn? t 


3' 03 


UCjCOO 


ni ?7'4fi 

UlCr iw 


3' dc 


UC3Cr C 


UlDOUi 




C707 
3' 0' 


UCjCc D 


UiDOUU 


rmnn?? 

LIUwwCC 


3' OD 


UC3JUC 






3/ trs 




iU3wQO 


nnnnni 


3r ^ 


1JC9JIU 


UU3^UU 




3/ 


UCjJAC 






3' tC 


UCT>Ji~ 


UwDOUU 


nnnopn 






UiDOUC 


3' ~ 




UCC' uc 


nnnnp' 


C7QC 


UC3JCD 


LAJi 1OO 




3' 


UC300U 


UU3r UC 




3/ 


UC3JJC 


UUC<U' 




C7QQ 
3c TO 








3< TT 




U3C' DO 


nnnnnT 


3cmu 


UC30t« 


ni37Q0 

UlC* LMJ 


177777 


3oui 


UC3a93U 


lAAnc^ 




30UC 


UC3J3C 


UWJCOO 


□OOOGP 


5803 


02S3S8 


000401 




580M 


02S3bO 


0Q5M02 




5605 


0253b2 


000241 




580b 


0253&M 


000405 




£5C7 


3253bfe 


OOblOC 





SBTTL 
CALL: 



INTEGER DIVIDE ROUTINE 



lOlV: 
IS: 

2S: 



3S: 



41: 

5S: 
bS: 



;THE HIGH DIVIDEfC MUST BE ' 1/2 
AS LARGE AS THE DIVISOP 



flOV LOU DIVIDEND. -(SP) 
flOV HIGH DIVIDEND, -CSP) 
NOV DIVISOR, -(SP) 
TCP PC IDIV 

RETURN ; QUOTIENT & RENAINDEP ARE ON "^HE 

-V-=0 IMPLIES NO ERROR ^ ^ 
••V=l IMPLIES ERROP OCCURRED 

"C"=0 DIVIUE OVERFLOW OCCURRED 

••C"=l ATTEMPTED TO DIVIDE BY ZERO 



STACK NO ERROR 



TOP 
♦2 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

RTI 

BIC 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

BPL 

DECB 

NEG 

NEG 

SBC 

MOV 

CMP 

BEQ 

TST 

BLT 

BGT 

BIS 

MOV 

BR 

INC 

BR 

NEG 

ClC 

BR 

POL 



REMAINDER 
QUOTIENT 

34 -(SP) 
•li,34 

•2$.(SP) 

4(SP),34 
2(SP).4(SP) 



•17,iSP) 
RO.-(SP) 
R1,-(SP) 
R2.-15P) 
R3.-(SP) 
-(iP) 

«17. -(SP) 
24(SP),R1 
22(SP).R0 
3S 

3(SP) 
RO 
Rl 
RO 

20(SP).R2 
•i.R2 

i3i 

R2 
4S 
5S 

•3,14(5P5 

•-1.RQ 

91 

2(5Pj 

bS 

P2 

BS 

PC 



OVERFLOW 

ALL ZEROS 
ALL ZEROS 



DIVIDE BY ZEPC 

ALL ONES 
ALL ONES 



;SAVE CURRENT TRAP VECTOR 
ISET UP TRAP VECTOR 

REPLACE NEW PC 
RESTORE OLD TRAP VEC^ 
SAVE PSU 
RESTORE PSW 

STRIP AWAY CONDITION CODES 

PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

SAVE A PLACE FOR SIGNS ^ 

SETUP THE ITERATION COUNTER 

PICKUP THE OlVlDErC 

: CHECK THE SIGN 
;KEEP TRACK OF THE SIGN 
AND NEGATE THE ORIGINAL 
: NUMBER 

PICKUP THE DIVISOR 

IF THE DIVISOR IS I SKIP ^^E RE: 

YES 



CHECK THE SIGN 

DIVISOR OF 0 IS A NC-HO 

SET "V- & -C- 

SET REfQINOER TO ALL ONES 

EXIT 

KEEP TRACK OF DIVISORS SIGN 

NEGATE THE ORIGINAL NUMBER 
CLEAR "C 

START FORMING (iUCTIENT 
POSITION MSB'S 



R-^rt^CE EXER 




Jl 
581 
581M 
5815 
581b 
5817 

5818 
5819 
582Q 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
582S 
5830 
5831 
5832 
5833 
583M 
5835 
583b 
5837 
5838 



02SH12 
02S420 
02SM22 
02SM2S 
02SH2b 
0254X 
Q2S432 
02543M 



02SHMC 
02S4MM 
02S4% 
025450 
025454 
0254&0 
025462 
02S%4 
0254bb 
025470 
025474 
02547b 
325500 



101 
31b 
001370 

iSSoos 

0527bb 000002 000014 

005000 

010001 

00572b 

00S71b 

002004 

005400 

lOSObb 000001 

^& 

001401 
005401 

OlOlbb 000020 

OlOO&b 00001b 

012b03 

0l2bO2 

012b01 

012&00 

0l2bbb 000002 
000002 
Q22b2b 
000763 



81: 



SeR Dlvli^ ^SulfSl 



95: 
lOS: 



US: 



12S: 



13S: 



flOV 


R0,R3 


icS 


R2 R3 
il" 


flOV 
ROL 


R3 RO 
Rl 


DEC 


(5P) 


BNE 


7$ 


TST 


Rl 


bpl 


lOf 


BIS 


«2, i4(5P) 


CLR 


RO 


MOV 


RO.Rl 


TST 


iSh* 


TST 


(5P) 


bge 


115 


neg 


RO 


CLRB 


hSP) 


DEC 


(SP) 


TST 


(SP)* 


beq 


12S 


NEC 


Rl 


riov 


Rl,20iSP} 


MOV 


RQ.lb(SP) 


nov 


(Sf') + ,R3 


fiov 


(SP)*.R2 


nov 


(SP)+,R1 


MOV 


(SP)+,RO 


MOV 


(SP)+,2(SP) 


RTI 


CMP 


(SP)+, (SP)* 


BR 


I2S 



Qb-JUN-r' iH.55 PAGE 13' 



COPY 

DONE^ 
BR IF NO 
OVERFLOU'' 
BR IF NO 

SET -V IN RETURN STATUS UOPC 
SET REMfllNpER TO ftLL ZEROS 
COPY REnfllNDER INTO QUOTIENT 
CLEAR COUNTER FROM STACK 
REMfilNDER SIGN CORRECTION NEEDEC 
BR IF NO 

NEGATE REMAINDER 
CLEAR SIGN 

BUT DON'T FORGET OUOTIENT 

QUOTIENT SIGN CORRECTION NEEDS::'' 

BR IF NO 

NEGATE OUOTIENT 

RETURN OUOTIENT AND 

REMAINDER TO USER 

POP S1ACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

SETUP TO RETURN CONDITION CC^Et 

RETURN 

POP THE STACK 



iii 



N-77 1H:55 PftGE 138 



583S 
5840 



58&3 
58t.4 
5885 
58&£> 
5867 
5888 
5869 
5870 
5871 
5872 
5873 
587H 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5S82 
5883 



025502 
025502 
02550H 
025506 
02S510 

025516 
025522 
025526 
025532 
025536 



025540 
025540 
025544 
025550 
025554 
025560 
025562 
025564 
025566 
025570 
025572 
C2557H 



010046 
010146 
010246 
010346 

i\n 

0166% 
016646 
016646 
016646 
000002 



012666 
012666 
012666 
012666 
012605 
012604 
012603 
012602 
012601 
012600 
000002 



000022 
000022 
000022 
000022 



000022 
000022 
000022 
000022 



.SBTTL SPVE AND RESTORE R0-R5 ROUTINES 

ISflVE R0-R5 

* 5PVREG 

♦UPON RETURN FROM JSfiVREG THE STACK UILL LOOK LIKE: 

»TOP— ( + 16) 

* +2— (+18) 

* +4— R5 
» +6 — R4 

* +8— R3 
#•••10 — R2 
*-fl2 — Rl 
#♦14 — RO 



SSRVREG: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MCV 
MOV 
MOV 
RTI 



RO,-(SP) 
Rl -(SP) 
R2 -CSP) 
R3 -(SP) 

22(SP).-(SP) 

^2(SP^-(SP) 

22(SP) -(SP) 
22(SP),-(SP) 



PUSH RO 
PUSH Rl 
PUSH R2 
PUSH R3 



ON STOCK 
ON STACK 
ON STACK 
ON STACK 



SAVE PS 

tAVE PC 
AVE PS 
SAVE PC 



OF MAIN FLOW 
MAIN FLOW 
CALL 
CALL 



8f 

OF 



:*RESTORE RD-R5 
;*CALL: 

:» RESREG 
tRESREG: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MCV 
MOV 
MOV 

pt: 



(SP)*,22(SP) 

(SP)+.22(SP) 

(SP)'»-,22(SP) 

(SP)+,22(SP) 

(SP)*,R5 

(SP)+,R4 

(SP)+,R3 

(SP)*,R2 

(SP)*.R1 

(5P)+.PQ 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOU 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RQ 



Jil 

nflCYil 30(10%) Ob-JUN-77 14:55 PftGE i3S 



-C-:i-DZRKHC. RKll-RKQS PEPFORflftNCE EXERCISER "SS^i^.S^iSiisi =9??;^^? 
dI^RkHG.PII 25-APR-.. 10:18 RANDOM NUMBER GENERPTOR ROUTINE 



sesM 

5887 
5888 
5889 

saso 

5891 
58% 
58S3 
S8<W 
5895 
58% 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
59Gb 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
591H 
5915 
591b 
5917 
5918 
5919 
5920 
5921 
5922 
5923 
592M 
592S 
592b 
5927 
5928 
5929 
5930 

i9§2 
5933 
593M 
5935 
593b 
5937 
5938 
5939 



02557t, 






02557b 


01004b 




02Sb00 


01014b 




02SbO2 


01024b 




025bOS 


01034b 




02SbOb 


0104% 




02SbI0 


017b04 


000012 


02Sbl4 


011400 




02Sblb 


01b401 


000002 


025b22 


012703 


177771 


Q25b2b 


005002 




025b30 


00b300 




02Sb32 


OOblOl 




025b34 


00bl02 




025b3b 


005203 




025b40 


001373 




02Sb42 


0bl400 




02Sb44 


005501 




025b% 


0bb401 


000002 


025b52 


005502 




025b54 


0b2700 


001057 


02SbbO 


005501 




025bb2 


005502 




025bb4 


0b2701 


047401 


02Sb70 


005502 




02Sb72 


0b2702 


00000b 


025b7b 


0b0200 




025700 


005501 




025702 


010014 




025704 


0101b4 


000002 


ffi5710 


012b04 




025712 


012b03 




025714 


012b02 




02571b 


012b01 




025720 


012b00 




025722 


0b27lb 


000002 


02S72b 


000207 




025730 


12345b 




025732 


17b543 




025734 


001201 




^7^ 


5^SI 




025742 


174532 




025744 


157b50 




0257% 


03075? 




025750 


131547 




025752 


032070 




025754 


12345b 




02575b 


17b543 





SBTTL 
CALL: 



iRANO: 



RflNOOM NUMBER GENERATOR ROUTINE 



JSR 

RETURN 





MAI J 

MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




CLR 


IS: 


A5L 




n/M 

ROL 




ROL 




INC 




BNE 




ADD 




ADC 




ADD 




ADC 




ADD 








ADC 




ADD 




ADC 




POO 




Ann 




RDC 




HOV 




MOV 




MAI/ 

nOv 




nuv 




HOV 




nuv 




nuv 




HDU 




OTC 


nsLinvL . 




RSDRVH: 


17b543 


RSFUNL: 


1201 


RSFUNH: 




RSCYLL: 


17blOS 


RSCYLH: 


174532 


RSBAL: 


157b50 


RSBAH: 


30753 


R5UCL: 


131547 


RSUCH: 


32070 


RSDTL: 


12345b 


PSDTH: 


17b543 



PC.JRAND 



RD,-(SP) 
R1,-(SP) 
R2 -(SP) 
R3 -(SP) 
R4.-(SP) 
aiS(SP),R4 

(R4),R0 

2(R4).R1 

•-7,rS 

R2 

RO 

Rl 

R2 

R3 

IS 

(R4),R0 
Rl 

2(R4),R1 
R2 

•1057, RO 

Rl 

R2 

•4740 1,R1 
R2 

•b,R2 
R2,R0 
Rl 

R0,(R4) 

R1.2(R4) 

(S^') + ,R4 

(SP)+,R3 

(5P)+,R2 

(SP)+,R1 

(SP)+.RO 

«2,(SP) 

PC 



CALL THE ROUTINE 
RETURN HERE THE RANDOM 
NUMBER WILL BE IN 
SHINUM.ILONUM 

PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R4 ON STACK 

GET POINTER TO THE SAVED SEEDS 

FOR GENERATING THIS RANDOM NUMBER 

GET LO NUMBER SEED 

GET HIGH NUMBER SEED 

SET SHIFT COUNT 

ZERO R2 

SHIFT RO LEFT AND 

ROTATE CARRY INTO Rl AND 

ROTATE CARRY INTO R2 

CHECK FOR DONE 

CONTINUE SHIFT LOOP 

AOO NUMBER TO HAKE X 129 

PROROGATE CARRY 

AOO NUMBER TO MAKE X 129 

PROROGATE CARRY 

ADO LOW CONSTANT 

PROROGATE CARRY 

PROPOGfiTE CARRY 

ADD HIGH CONSTANT 

PROROGATE CARRY 

ADO HIGHEST CONSTART 

REPRirC RO WITH HIGHEST DIGIT 

PROROGATE CARRY 

SAVE RO-SLONUM (FOR USE NXT TIME) 
SAVE Rl-SHINUM (FOR USE NXT TIME) 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

ADJUST SP FOR CORRECT RETURN 

RETURN 

RANDOM SEED FOR DRIVE SELECTION CLO) 

" " (HI) 
RANDOM SEED FOR FUNCTION 



(HI) 
lEO 



FOR CYLINDER (LO) 



RANDOM SEE 
" " (HI) 
RANDOM SEED FOR BUS t ADDRESS iLO) 
" " (HI) 
RANDOM SEED FOR UORD COUNT .LO) 

" " (HI) 
RANDOM SEED FOR DATA (LC) 
" (HI) 



Kii 
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59M0 
59M1 
59M2 
59M3 
594M 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
57 



5959 
5960 
5%1 



5964 
5%5 
5966 
5%7 
5968 
5%9 
5970 
5971 
5972 
5973 
5974 
5975 
5976 
5977 
5978 
5979 
5980 
5981 
5982 
5983 
5984 
5985 
5986 
5987 
5988 
5969 
5990 
5991 
5992 
5993 
5994 
5995 



025760 
025764 
025772 
025776 
026002 
026004 
026012 
026020 

026030 
026032 
026034 
026040 
026042 
0260% 
026052 
026056 
026062 
026064 
026066 
026070 
026072 
026074 



1( 

026102 

m% 

026114 
026116 
026120 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
01 0346 
010446 
0105% 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 



000000 
000001 
026205 
000002 

000001 
000006 
000005 



026205 

000006 
026204 
026203 
000012 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

4thIS routine is used TO CHANGE A Ib-BIT BINARY NUMBER TO A b-DIGIT 
fOCTAL (ASCII) NUMBER AND TYPE IT. 

tITYPOS — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUflBEP OF DIGITS TO TYPE 
«CALL: 



NOV 
TYPOS 
.BYTE 
.BYTE 



NUf1,-(SP) 

N 
M 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
M=l OR 0 

; ; IsTYPE LEADING ZEROS 
; 0=SUPPRESS LEADING ZEROS 



ft 
ft 
ft 
ft 
ft 
ft 

ftJTYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

ftJTYPOS OR STYPOC 
ftCALL • 

ft " MOV NUM,-(SP) ;;Ny"PE8T0^BE TYPED 

ft TYPON ;;CALL FOR TYPEOUT 

♦STYPOC — ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*^^^^' ^Y^r- NUM,-(SP) ::NUMBEB.IO_BEItyPED 



OC 



026204 
177770 



STYPOS: MOV 
026203 MOVB 
MOVB 
ADD 
BR 

026203 iTYPOC: MOVB 
026205 MOVB 
026202 JTYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADD 
MOVB 
MOVB 
MOV 
CLR 

IJ: ROL 
BR 

2S: ROL 
ROL 
ROL 
MCV 

3S: ROL 
DECB 
BPL 
BIC 
BNE 
TST 
BEQ 



a(SP),-(SP) 

1(SP),J0FILL 

(SP)*.S0"0D£+1 
•2,(S^) 

STYPON 

ll,SOFILL 

•6 SOMODE^l 

•S.SOCNT 

R3 -CSP) 
R4 -(SP) 
R5.-(SP) 
$OnODE+l,RM 
R4 

•6,R4 

R4.I0M0DE 

J0^ILL,R4 

12(SP)!R5 

R3 

R5 

3S 

RS 

R5 

R5 

R5,R3 
R3 

JOMODE 
7J 

•177770, R3 

45 

R4 

5S 



; PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 

I ADJUST RETURN ADDRESS 

;SET THE ZERO FILL SWITCH 
SET F()fl SIX(6) DIGITS 
;SET THE ITERATION COUNT 
;SAVE R3 
•SAVE R4 
' SAVE R5 

iGET THE NUMBER OF DIGITS TC TYPE 

J SUBTRACT IT FOR MAX. ALLOWED 
;SAVE IT FOR USE 

GET THE ZERO FILL SWITCH 

PICKUP THE INPUT NUMBER 
; CLEAR THE OUTPUT WORD 

ROTATE MSB INTO "C" 
;G0 DO MSB 
;FORM THIS DIGIT 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT' 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0' 
BR IF YES 



Lii 
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59% 

5997 

bOOO 
bOQl 



bOOH 
&005 
600b 
£>007 
&008 
bOOS 
bOlQ 
&Q11 
&012 
&013 
bOlM 
6015 
bOlE 

&cir 



026140 
02614H 

02615M 
026156 
026160 
026162 
02616M 
026166 
02617M 
026176 
026200 
026201 
026202 
026203 
026204 



005204 
052703 

nF' 

104401 
105337 

402 
005204 
000744 
012605 
012604 
012603 
Q16666 
012616 
000002 
000 
000 
000 
000 
OOOODC 



000060 
0040 
J6200 
026200 
026202 



000002 000004 



4$: 
5S: 



7S: 



6S: 



8S: 

SOCNT: 

JOFILL: 

JOnODE: 



INC 

BIS 

BIS 

MOVE 

TYPE 

OECB 

BGT 

BLT 

INC 

BR 

nov 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.UORO 



R4 

•'0,R3 
ioCNT 



^1 



R4 
2S 

(SP)+,R5 
(SP)+,R4 
(SP)+ R3 
2(SP)-4(SP) 
(SP)+,(SPJ 

0 
0 
0 
0 
0 



14:55 PAGE IMi 

DON'T SUPPRESS ANYMORE O'S 

MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

br I F Done 

INSURE LAST DIGIT ISN'T A BLANK 
GO 00 THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 

TERMINflTOR FOR TYPE ROUTINE 

OCTAL DIGIT COUNTER 

ZERO FIL.L SWITCH 

NUMBER OF DIGITS TO TYPE 
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&018 

£>0i9 

6020 

&021 

bOZZ 

b023 

&02M 

6025 

6026 

6027 

6026 

602S 

60X 

6031 

6032 

6033 

6034 

6035 

6036 

6r37 

6038 

6039 

6OM0 

60M1 

60M2 

60M3 

6044 

6045 

6046 

6047 

6048 

604S 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

605S 

6060 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6068 

60bS 

6070 

6071 

6072 

6073 



ERROR HANDLER ROUTINE 
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.SBTTL ERROR HANDLER ROUTINE 



»SH15=1 HALT ON ERROR 

»SU13=1 INHIBIT ERROR TYPEOUTS 

»SU12=1 TYPE OUT T« ERROR HISTORY. THE FUNCTION THAT 

IMS BEING PERFORMED ON RK At THE TIME OF ERROR AND 
THE FUNCTION PERFORMED PRIOR TO THAT. 

iNOTE THIS SUITCH OPTION (12) IS MEANINGFUL ONLY FOR ERRORS OCCURING IN THE 

tEXERCISER PART OF THE PROGRAM. ^ 

#SU11=1 DUMP OUT ALL RK REGISTERS 

*SH10=1 BELL ON ERROR 

»SW09=1 LOOP ON ERROR 

»SU03=1 TYPE OUT TIME AT WHICH ERROR OCCURED 

»SU02=1 DROP THE DRIVE AFTER MAXM ERORS ON THIS DRIVE 

*SU01=1 TYPE OUT THE SERIAL NUMBER OF THE ERRORING DRIVE 

;»G0 TO SERRTYP ON ERROR 



026206 


104407 






026210 


105237 


001103 




026214 


001774 






026216 


013777 


001102 


152716 


026224 


032777 


002000 


152706 


026232 


001402 






026234 


104401 


001206 




026240 


005237 


001112 




026244 


032777 


000004 


152666 


026252 


001415 






026254 


010146 






026256 


013701 


001250 




026262 


100410 






026264 


105261 


001542 




026270 


126127 


001542 


000003 


026276 


101402 






026300 


000137 


016312 





SERROR: CKSUR 
INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 
INC 



IS: 



026304 012601 



026306 
026312 
026320 
026322 
026326 
026332 
026334 



011637 
162737 
005046 
117716 
121627 
002402 
162716 



001116 

000002 001116 

152570 
000100 

000040 



2S: 

3S: 



BIT 
BEQ 

MOV 
MOV 
BMI 



INCB 
CMPB 
BLOS 
JMP 

MOV 

MOV 

SUB 

CLR 

MOVB 

CMPB 

BLT 

SUB 



SERFLG 
SERROR 

STSTNM.aOISPLAY 

•suio.asuR 

IS 

.SBELL 
iERTTL 

•5U2,3SUR 
3S 

Rl.-(SP) 

sr6rv,ri 

2S 



ERDRV(Rl) 

ERDRV(R1),I3 

2S 

DSELCT 
(SP)+,R1 

(SPJ.SERRPC 
•2.$tRRPC 

-(^P) 

aSERRPC.CSP) 

(SP),ll60 

4$ 

•40, (SP) 



LOOK FOR A 'CONTROL G' 

SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 

DISPLAY TEST NUMBER AND ERROR FLAG 

BELL ON ERROR? 

NO - SKIP 

RING BELL 

COUNT THE NUMBER OF ERRORS 

COUNT • OF ERORS & DROP DRVE'' 
NO 

YES 

SAVE Rl 

GET ERRORING DRIVE • 
IF (SRDRV)= -1. SKIP(BECAUSE THE 
EROR MAS NOT ATTRIBUTABLE TO ANY 
SPECIFIC DRIVE) 

COUNT i OF ERORS ON THIS DRIVE 
• OF ERORS GREATER THAN ALLOWABLE'' 
NO 

DROP THE DRIVE 
{RESTORE Rl 

;GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 
FORM THE C04$ECT ITEMB IF THIS IS AN 
EROR MESAGE EQUAL OR ABOVE 100. 
NOTE THERE R 2 CLASSES OF ERRORS: 

1) SITEMB'S BELOU 100 

2) SITEMB'S ABOVE 100 
SUBTRACTION FACTOR HAS T08E SUCH THAT 
THE C04SECT OFFSET IS SELECTED. THIS 
FACTOR WILL CHANGE IF THE TOTAL i OF 
ERROR MESSAGES IN CLASS 1 CHANGES. 
•=100 -LAST ITEM IN » CLASS 1 - i 



f10-il-D2RKHG, RK11-RK05 PERFORMANCE EXERCISER fIfiCYll 3n(10Mfc) 
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b07b 
b077 
b078 
b07<3 
b080 
b081 



b08S 
b08S 
b086 
b087 
b088 

bosg 
bogo 

b091 

bag2 

bOS3 
bO<3H 

boqs 

bO% 
bO<37 

boge 
boss 
bioo 

blOl 
bl02 
bl03 
blOM 

bios 

blOb 
bl07 
bl08 

bios 

6110 
bill 



'15 

0ab352 
54 



81^ % 



7 

001012 
IOMH?! 



02b364 
02b372 
026374 

028400 
028406 
026410 
026414 
026416 
026420 
026422 
026430 
026432 
26440 
j4M2 



032777 
001402 
004737 

023737 
001403 
005777 
100002 
OOOOOQ 
10M407 
032777 
001411 
123727 
103011 
013746 



02b44b 00572b 
02b450 01271b 



14 4$: 
00 1525bb 



5i2i: 

010000 15254b 
020426 

000042 000046 5S: 
152524 

001000 152510 bS: 
001114 000040 
001244 

015726 



026454 012737 177777 001250 7J: 



026462 000002 
026464 013716 
026470 000771 



001110 



SS: 



MOV 
BIT 
BNE 
JSR 
TYPE 

BIT 
BEQ 
JSR 

CMP 

BEQ 

TST 

BPL 

HALT 

CKSUR 

BIT 

BEQ 

CMPB 

BHIS 

MOV 



TST 
MOV 



MOV 



RTI 
MOV 
BR 



(SP)+,}ITEMB 
l5U13|aSUR 



SS 



•SERRTYP 



•suis.asuR 

SS 

PC.HISTRY 

3142, 3146 
.410 

asuR 

6S 



iSuos.asuR 

7$ 

SITEMB,I40 

?PRLVL,-(SP) 



(SP) + 

•EXCRLUP,CSP) 



l-l.SRDRV 



SLPERR.CSP) 
71 



SKIP TYPEOUT IF SET 

SKIP TYPEOUTS 

GO TO USER ERROR ROUTINE 



TYPE ERROR HISTORY' 

NO 

YES 

fiCTU fiUTOMfiTIC MODE' 
YES. HfiLT ON ERROR 
HflLt ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 
LOOK FOR fi 'CONTROL G' 
LOOP ON ERROR SWITCH SET' 
BR IF NO 

THERE R 37 ERROR MESSAGES IN CLASS 1 

LOCK OUT ALL INTERUPTS ON RETURN 
FROM THIS EROR HANDLER. IF THE EROR 
IS IN EXERCISER & LOOPInG IS TO 
BE DONE 

: IF THIS ERROR CALL MAS FftOM EXERCISER 
PART OF THE PROGRAM. GO TO 'EXCRLUP' 
I OTHERWISE RETURN THRU 'SLUPERR' 

RESET SERIAL NO FLAG 
IF (SRDRV)=-1, THEN THE SERIAL 
NO OF THE DRI^E WILL NOT BE 
TYPED OUT. 

OTHERWISE. SERIAL NO FOR THE DRIVE 
I IN 'SRDftV WILL BE TYPED. 

FUDGE RETURN FOR LOOPING 
RETURN 
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bll2 
6113 

£.115 
bllb 
bll7 
bll8 
bll<) 
bl20 
bl21 
bl22 
bl23 
bl2S 

bias 
bias 

bl27 

biae 
bias 
bix 

bl31 
bl32 

S133 
bi3M 

bias 
bi3b 

bl37 
bl38 
bl39 
bl40 
bl41 

bma 
bma 

bl4H 
bl45 

fci% 
bm7 
bi4e 
bm 

blSO 
blSl 

bisa 

blS3 
blSH 
bl55 
blSb 
blS7 

bise 

bl5<3 
blbO 
blbl 

biba 

bl63 
blfeH 

b:bs 



S8TTL ERROR f€S5»GE '^TYPEOUT ROUTINE 

;«THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEf1B) TO DETEPMlrC UHIC- 
»ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" (lEPP 
♦AND REPORTS THE APPROPRIATE INTORflATION iONCERNING THE ERROR. 



026814 

oasbib 

026820 
02682H 
026826 

026830 
026832 
026836 

02684H 
0268% 
026852 



Ucbi^ c 


t ouun 1 




UCD^r D 


ntnn»:t 




UcbsUU 






UcoT>Uc 






ucosub 


nn t rmu 




nacctn 

UcoaiU 


Ui J' ^ 


nni 1 iti 

UUl 1 la 


rocctu 


t nuum 
iu*r*TUc 




UCDSiO 


nrmux 




UCPjCU 






UCPjCC 








UUDOUU 




026526 


008300 




026530 


062700 


002688 




UiCUOr 




i!CD9 •U 






ucm^c 








nrmnnn 
















026580 






026582 


004737 


027032 


026588 


1044DI 


001213 


026572 


012037 


028802 


026576 


001404 




026800 


104401 




026802 


000000 




026804 


104401 


001213 


026810 


011000 




026812 


001408 





SERRTYP:TYPE 
NOV 
CLR 
BISB 
BNE 
NOV 
TYPOC 
BR 

U: DEC 
ASL 
ASL 
ASL 
ADO 
MOV 
BEO 
TYPE 
2S: .UORO 
3$: TYPE 
S$: BIT 
BEQ 
JSR 
TYPE 



0130% 
104402 
104401 
005710 
00137a 

012600 
104401 
123727 

103004 
004737 
004737 



002663 



001213 

001114 000040 



026660 
026766 



5S: 

bS: 
7S: 

BS: 



9S: 



026858 000207 



IDS: 



NOV 

BEQ 

TYPE 

.WORD 

TYPE 

flOV 

BEO 



NOV 

TYPOC 

TYPE 

TST 

BNE 

HOV 

TYPE 

CHPB 

BHIS 

JSR 

JSP 

RTS 



.SCRLF 

ftO,-(SP) 

RO 

SlSITENB.RO 
IS 

$ERRPC,-(SP) 

5S 

RO 
RO 
RO 
RO 

•SERRTB.RO 

(R0)+,2t 

4S 



.SCRLF 

hSUU.SSUR 

5S 

pc.dnpreg 
.$£rlf 

(RO)*.bS 
7S 

0 

.SCRLF 

(R0),RQ 

9$ 



a(RO)>,-(SP) 

,BLNK52 
BS 

(SP)*.RO 
.SCRL^ 
tiTEfIB, §40 

lOS 

PCJIMTYP 
PC. SNOT YP 

PC 



: "CARRIAGE RETURN" & "LINE FEED" 
:SAVE RO 

; PICKUP THE ITEM INDEX 

;IF ITEM NUNBER IS ZERO. JU5^ 
I TYPE THE PC OF THE ERR6R 

;GET OUT 

ADJUST THE INDEX SO THAT IT UIL^ 
IuORK FOR THE ERROR TABLE 

FORM TABLE POINTER 

PICKUP "ERROR NESSAGE" POINTER 

SKIP TYPEOUT IF NO POINTER 

TYPE THE "ERROR MESSAGE" 

"ERROR MESSAGE" POINTER GOES HERE 

"CARRIAGE RETURN" & "LirC FEED" 

DUMP OUT RK REGISTERS' 

GO TYPE OUT RK REGISTERS 



PICKUP "DATA HEADER" POINTER 

SKIP TYPEOUT IF 0 

TYPE THE "DATA fCAOER" 

"DATA «A0ER" POINTER GOES HERE 

■CARRIAGE RETURN" & "Lir€ FEED" 

PICKUP -DATA TABLE" POINTER 



TYPE AN OCTAL NUMBER 

SAVE 8(R0)* FOR TYPEOUT 

GO TYPE—OCTAL ASCII (ALL DIGHB. 

TYPE TM0(2) SPACES 

IS THERE ANOTHER NUMBER" 

BR IF YES 

RESTORE RO 

-CARRIAGE RETURN- & -LINE FEED- 
SKIP TIME & SERIAL I FOR 
NON-EXERCISER ERORS 

TYPE OUT TIME IF SU 3 IS S£" 
GO TYPE OUT THE SERIAL > OF THE 
ERRORING DRIVE. IF SU 1 IS SE"^. 
RE'JRN 
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&lb6 
blb7 
blbS 
blb<3 
blTQ 
bl71 
bl72 
bl73 
blTM 
blTS 
blTb 
bl77 
blTB 
felTS 

biao 

blBl 
bl82 
bl83 

bias 

blBS 
bl8E> 
bl87 
bl88 
fci8<9 

b:9C 



OZbbbO 

Q2bb7M 
OftTQO 
026702 
02(>70b 
026710 
026712 
026714 
02671b 
026722 
026726 
026732 
026736 
026742 
0267% 
026750 
026754 
026756 
026760 
026762 



032777 
001434 
104H01 
104401 
104414 
012700 
012001 
000404 
012001 
001402 
062701 
010137 
0127% 
004737 
004737 
020027 
001403 
104401 
000756 
104415 
000207 
000000 



X1552 



000074 
026762 
026762 
02%04 
025000 
001560 

00233*^ 



OOOOOC 



T IMTYP 

THIS ROUTirC TYPES TfC TlfC IN HOURS: niN:SEC5 IF 3U 3 IS SET 
5U 3 SHOULD NOT BE SET IF KUllL IS NOT PRESENT. 



000010 152252 TIHTYP: 

002652 
002662 



IS: 



2t: 



3S: 
4S: 

5S: 



BIT 

BEQ 

TYPE 

TYPE 

5AVREG 

NOV 

NOV 

BR 

NOV 

BEQ 

ADO 

NOV 

NOV 

J5R 

JSR 

CHP 

BEQ 

TYPE 

BR 

RESREG 

RTS 

.UORO 



•su3.asuR 

4S 

,nSG2'3 
,BLNKS3 

•KUHR.RO 

(R0)4,R1 
2S 

(R0)+,R1 
21 

160.. Rl 
Rl.St 
•5t.-(SP) 
PC,dlSDB20 

PC aisumsL 

RO IKUSEC^2 
31 

,nSG18 

Is 

PC 
0,0 



;IS SW 3 SET' 
IF NOT SKIP TYPING TI1E 
;'TinE' 

;5AVE R0-R4 

i INITIALIZE POINTER 



;TYPE OUT 



:H0URS:f1INS:SECS 

; CONVERT TO ASCIZ STRING 

;G0 TYPE 

;ALL DONE' 



: RESTORE R0-P4 
; RETURN 
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blS2 
blS3 
bl9S 
bl<35 
bl% 
bl'37 
bl% 
bl9S 
b2CX) 
b201 
8202 
b203 
b204 
b2Q5 
b2X 
b207 

haoa 

b2OT 
b210 
b211 
b212 
b213 
b214 
b215 
b21b 
b217 
b218 
b219 
b220 
b221 
b222 
b223 
b224 
b225 
b22b 
b2S7 
b228 
b22q 
6230 
b231 
6232 
b233 
fe23H 
fc235 



Q2C>7b& 
02t)77M 
0 26776 
027000 
02700H 
027006 

027010 
027014 

cc:'020 

02702S 

027026 
027030 



027032 
027032 
027036 

027142 
027142 
027146 
027150 
027154 
027156 
027162 
027164 
027166 
027172 
027176 
027200 
027202 



032777 
001415 
010146 
013701 
006301 
100407 

104401 
104401 
0161% 
104405 

012601 
000207 



104401 
000441 



013746 
104402 
104401 
0100% 
012700 
0130% 
104402 
104401 
020027 
003771 
012600 
000207 



000002 
0012«:0 



001213 
002326 
001266 



027040 

001116 
002663 
001216 



002663 
001232 



SNOTYP 

THIS ROUTINE TYPES OUT THE SERIftL NUMBER OF THE ERRORINC DRIVE. IF SU 1 
IS SET. NOTE THfiT THE SERIftL NUNBER IS TYPED OUT ONLY WHEN THE DRIVE 
CfiN BE IDENTIFIED POSITIVfLY. fiS THE ONE UHICH GAVE THE ERROR. IF THE 
ERROR CANNOT BE ATTRIBUTED t6 ANY SPECIFIC DRIVE < (SRDRV)= -1> THEN 
THE SERIAL NUMBER IS NOT TYPED OUT. 



152144 SNOTYP: BIT 
BEQ 
NOV 
NOV 
ASL 
Bill 

TYPE 
TYPE 
NOV 
TYPDS 



IS: 
2S: 



NOV 
RTS 



•SUl.aSUR 
2S 

Rl.-(SP) 

sr6rv,ri 

Rl 
IS 

,SCRLF 
!f1SG17 

SRN0(R1),-(SP) 



(SP)+,R1 
PC 



TYPE OUT SERIAL 
NO 

SAVE Rl 

GET ERRORINC DRIVE • 
IF (SRDRV)= -1, SKIP (BECAUSE 
THE ERROR UA5 NOT ATTRIBUTABLE 
TO A SPECIFIC DRIVE J 

;TYPE "SR. NO:" 
;GET THE SERIAL I 
•TYPE IT OUT (DECIMAL) 

; RESTORE Rl 
I RETURN 



• niiPRFC 

iTHlS ROUTINE DUMPS OUT ALL RKll REGISTERS WHEN SU 11 IS SET AND AN ERROR OCCJRS. 



DMPREG: 



::65S: 
&<4S: 



IS: 



TYPE 
BR 

.ASCIZ 

MOV 

TYPOC 

TYPE 

MOV 

MOV 

MOV 

TYPOC 

TYPE 

CMP 

BLE 

MOV 

RTS 



,65S 
&4S 

<15><12>/ PC 

fERRPC,-(SP) 

.BLNKS2 
ftO.-(SP) 
•Rii:OS,RO 
a(RQ)*,-(SP) 

.BLNKS2 

AO.IRKDB 

IS 

(SP)*,RO 
PC 



:;TYPE ASCIZ STRING 
;:GET OVER THE ASCIZ 
PKDS RKER RKC5 



RKUC 



RK3P 



RKDB' 
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C 1 u 
Ob-JUN-77 
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b23S 
b240 
&241 
b2M2 
b2M3 
bSHM 

&2% 

J»2M7 
b2H8 

&250 
b251 

6253 
6254 
6255 
b2S6 
6257 
6258 
6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
627S 



02720S 
027204 
027206 
027214 



027216 000416 



027220 
027224 
027232 
027236 
0272H2 
027244 
0272% 
027252 
027254 
027254 
027260 
027262 
027270 
027272 
027300 
027302 
027306 
027312 
027316 
027322 
027326 
027334 
027342 
027346 



0137% 
012737 
005737 
012637 
000421 
022626 
012637 
000407 

105737 
001412 
032777 
001404 
013737 
000415 
105037 
105237 
011637 
011637 
005037 
112737 
013777 
013716 
000002 



000004 
027244 
177060 
000004 



000004 



001103 

001000 

001110 

001103 
001102 
001106 
001110 
001204 
000001 
001102 
001106 



151650 
001106 



001115 
151600 



.SBTTL SCOPE HPNDLER ROUTINE 



{flHlS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL iNCPEflENT 

iflNO LOftO THE TEST NUMBER (ITSTNM) INTO THE DISPLfiY REG. tDISPLft«"7:C' 

fftND LOfMD THE ERROR FLAG (lERFLG) INTO DISPLAY' 15: 08> 

»THE SWITCH OPTIONS PROVIDED BY TMIS ROUTINE ARE: 

«SH14=1 LOOP ON TEST 

«SU09=1 LOOP ON ERROR 

*CALL 

« SCOPE ;;SCOPE=IOT 



104407 

032777 040000 151724 15 
001047 



SSCOPE: 

CKSUR 
BIT 
BNE 

itllllSTART OF 

iXTSTR: BR 



NOV 

000004 MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6S:;lltllEN0 OF 



2S: 



7$: 



4J: 

SSVLAO: 



JOVER: 



TSTB 
BEQ 

BIT 
BEQ 
MOV 
BR 

CLRB 

INCB 

MOV 

MOV 

CLR 

MOVB 

MOV 

MOV 

RTI 



lBIT14,aSUR 
SOVER 
CODE FOR THE XOR 
6S 

atERRVEC.-(SP) 

•ss^serAvec 

311^060 
(SP)+.aiERRVEC 
ISVLAD 
(SP)+,(SP)* 
(SP)+,aiERR'.'EC 
7S 

CODE FOR TfC XOR 
SERFLP 
SSVLAU 
•BITOS,aSUR 
4S 

SLPERR.SLPAOR 

SOVER 

KRFLG 

ITSTNM 

(SP),ILPAOR 

(SP)!$LPERR 

SESCftPE 

•l.SERMAX 

ITSTNM, 30 I SPLAY 

SLPADR,(5P) 



;TEST FOR CHANGE IN SOFT-SUR 
LOOP ON PRESENT TEST' 
.:YES IF SU14rl 
tESTERlllll 

IF RUNNING ON THE "XOR" TESTER CrtANGE 
THIS INSTRUCTION TO A "NOP" (N0P=24C> 
SAVE THE CONTENTS OF THE ERROR ^^C'CP 
SET FOR TIMEOUT 
TIME OUT ON XOR' 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME DL' 
RESTORE THE ERROR VECTOR 
.LOOP ON THE PRESENT TEST 
TESTERtltit 
HAS AN ERROR OCCURRED" 
BR IF NO 
LOOP ON ERROR' 
BR IF NO 

SET LOOP ADDRESS TO LAST SCCFE 



ZERO THE ERROR FLAG 

COUNT TEST NUMBERS 

SAVE SCOPE LOOP ADDRESS 

SAVE ERROR LOOP ADDRESS 

CLEAR THE ESCAPE FROM ERROP ADDRESS 

ONLY ALLOW ONE(l) ERROR ON N£ T 'E5^ 

DISPLAY TEST NUMBER 

FUDGE RETURN ADDRESS 

FIXES PS 



I- ic 
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£.279 



n 

&282 
&283 
b284 

t.287 

baas 

b28S 
b2«W 
b2Sl 
b2S2 
b293 
b294 

bass 
ba% 

b2S7 
b298 
b2^ 
b300 
b301 
b302 
b303 
b30M 

b3D5 
b30b 
b307 
b308 
b30«3 
b310 
b311 
b312 
b3l3 
b314 
b315 
b31b 
b3l7 
b318 
b319 
b320 
b321 
b322 
b323 
b32M 
b32S 
b32fc 
b327 
t22e 



027350 
027352 
0273Sb 
0273t>0 
0273b2 
0273b4 
027370 



027372 
027374 
027402 



027M04 
027M0b 
027M10 
027412 
027414 
02741b 



027422 
027424 
027M2b 
0274X 
027432 
027434 
02743b 
027440 
027442 
027444 
0274Hb 



027372 
024244 
Q2B004 
0257b0 
02b020 
024020 



027420 023034 



0227b4 
02324b 
0233bb 
023540 
023b42 
025502 
025540 
02235b 
0223b4 
022244 
022522 



.SBTTL TRAP DECODER 

;*0F THE DESIRED ROUTINE, "" ' 

:*G0 TO THAT ROUTINE. 



THEN USING THE ADDRESS OBTAINED IT UIL 



01004b 

OlbbOO 000002 
0057H0 
111000 
00b300 

OlbOOO 027404 
0002CO 



Ollb4b 

Olbbbb 000004 
000002 



STRAP: MOV RO.-(SP) 

MOV 2(§P),R0 

TST -(RO) 

nOVB (RO),RO 

ASL RO 

NOV JTRPftD(RO),R0 

RTS RO 



SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 

GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 



000002 



:;THIS IS USE TO HANDLE THE "GETPRI" NACRO 
STRAP2 



NOV 
NOV 
RTI 



(SP),-(SP) 
4(SP5,2(SP) 



;:MOVE THE PC DOUN 
;n0VE THE PSU DOWN 
; RESTORE THE PSU 



SBTTL TRAP TABLE 

«THIS TABLE CONTAINS THE STt4RTING ADDRESSES OF THE ROUTINES CALLED 
♦BY THE -TRAP- INSTRUCTION, 



tTRPAD: 



ROUTINE 

.UORD 

JTYPE 

JTYPOC 

STYPOS 

JTYPON 

STYPDS 



STRRP2 

;CALL=TYPE 
CALL=TYPOC 
CALLsTYPOS 
CftLLsTYPON 

;CflLL=TYPDS 



TRAP*1( 104401) 
TRAP42( 104402) 
TRAP43(10H403) 
TRAP+4( 104404) 
TRAP-»€( 104405) 



TTY TYPEOUT ROUTINE 
TYPE OCTW. NUMBER (UITH LEADING ZEROS. 
TYPE OCTW. NUMBER (NO LEADING ZEROS) 
TYPE OCTf^ NUrCER (AS PER LAST CALL> 
TYPE 0ECIHAL NUWER (UITH SIGN) 



JGTSUR ;;CALL=GTSUR TRAP+b( 10440b) GET SOFT-SUfi SETTING 



SCKSUR 

SROCHR 

SROLIN 

SRDOCT 

SRDOEC 

S5AVREG 

SRESREG 

CN.RST 

CN.ROY 

DR.RST 

TY.flSG 



CALL=CK51« 
CALLsRDCW 
CflLLsROLIN 
CflLL=RDOCT 
CALLsRDOEC 
CALL=SAVREG 
CALL^RESREG 
CALLsCON. RESET 
CALL=C0N.RDY 
CALL=0RV. RESET 
CALL=TYPMSG 



TR(¥»+7( 104407) 
TRAP*10(10M410) 
TRfiP+1 1(104411) 
TRAP*12( 104412) 
TRAP-»13( 104413) 
TR(iP+14(104414) 
TRAP+1S( 104415) 
TRflP+lb( 
TRAP+17( 104417) 
TRAP*20( 
TRAP*21( 104421) 



TEST FOR CHANGE IN SOFT-SUR 
TTY TYPEIN CHARftCTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
REM) AM OCTAL NUMBER FROM TTY 
READ A DECIMAL NUr«R FROM TTY 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 
10441b) COMTROL RESET ROUTINE 
UAIT FOR CONTROL READY 
104420) DRIVE RESET ROUTINE 
TYPE MESSAGE ROUTINE. 3**i3 



6330 

&333 

b33H 

6335 

6336 

&337 

6338 

6339 

63H0 

b3Sl 

63M2 

63M3 

6344 

6345 

63% 

6347 

6348 

634S 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

5371 

6372 
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027450 
027456 
027%4 
027466 
027470 
027472 
027474 
027476 
027500 
027504 
027510 
027516 
027520 



027522 
027530 
027534 
027540 
027544 
0275% 
027552 
027554 
027556 
027560 
027562 
027564 
027566 
027574 
027602 
027604 
027606 
027610 
027612 
027614 
027616 
027620 
027622 
027630 



012737 
012737 
0100% 
0101% 
0102% 
0103% 
0104% 
01M% 
0177% 
010637 
012737 
000000 
0OC776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
027622 
012716 
003366 
000002 

000776 
000000 
005015 
000122 



027614 
000340 



000024 
000026 



.SBTTL rC/UER OOUN AND UP ROUTINES 
ISOMER OOUN ROUTINE 



151434 
027620 
027522 



027614 
027620 
027620 
027620 

151366 



000024 



iPURON: nOV ISILLUP.SIPURVEC 

nOV l340.aiPURVEC42 

flOV RO,-lSP) 

flOV Rl -(JP) 

flOV R2,-(SP) 

nOV R3,-(SP) 

nOV R4,-(SP) 

nOV R5.-(SP) 

MOV asfiR.-(SP) 

nov sp.sSftVR6 

ilOV tS^URUP.aiPWRVEC 
HALT 

BR .-2 



:SET FOR FAST UP 
#»RI0:7 

PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH RS ON STACK 
PUSH aSUR ON STACK 
SAVE SP 
:SET UP VECTOR 



000024 tPURUP 



IS: 



;;HANG UP 

:(*0UER UP ROUTINE 



027450 
000340 



OOC024 
000026 



047520 042527 



SPURfIC: 

SPURAO: 

SILLUP: 

S5AVR6: 
SPOUER: 



NOV 
NOV 
CLR 
INC 
BNE 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
MOV 
TYPE 
.UORO 
MOV 
.UORD 
RTI 
HALT 
BR 
0 

.ASCI2 
.EVEN 



•fILLUP.aiPWRVEC 
SSAVR6,SP 
SSAVR6 
SSAVR6 
IS 

(5P)-^,aSUR 

(SP)*,R5 

(SP)+,R4 

(SP)+ R3 

(SP)4,R2 

(SP)-f,Rl 

i5P)+lR0 

iSPUR^N.aiPURVEC 
•340.aiPURVEC-f2 

SPOUER 

(PO+.CSP) 
PFSTRt 



.-2 

'15'- i2>-P0UER" 



OOUN 



:SET FOR FAST 
iET SP 
WAIT LOOP FOR THE 
WAIT FOR THE INC 
OF UORO 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POf' STACK 



T'Y 



INTO asuR 
INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO 



INTO RO 

.SET UP THE POUER OOUN VECTOR 
.roi0:7 

ftEPORT THE POUER FAILURE 
: POUER FAIL MESSAGE POINTER 
; RESTART AT PFSTRT 
•RESTART ADDRESS 

THE POUER UP SEQUENCE UAS STARTED 
BEFORE THE POUER OOUN UAS COMPLETE 
PUT THE SP HERE 



b375 
b37b 

m 

b380 
&381 
&382 
b383 
b384 
b395 
b386 
b387 
b388 
b38<3 
b3<30 

basi 

b3<K 
b3S3 
b33H 
b3<« 
b3% 
b3g7 
b398 
b3<N 
bHOO 
bMOl 
b402 
b403 
b40H 
b4Q5 
b4CI6 
b407 
b408 
b40S 
b41Q 
b411 
bM12 
b413 
b414 
b415 
b41b 
b4l7 
bH18 
6419 
b420 
b421 
b422 
b423 
b42M 
b425 
bi2b 
b427 

b42e 

b42«3 
b43C 



Pll 



8§7lS 
0276% 
027650 
ffi765b 
S7664 
027672 
0 27700 
027706 
027714 
027722 
027723 
0277M 
027736 
0277MM 
0277% 
027754 
027762 
027770 
027771 
027776 
030004 



03G026 
03003H 

030042 
030050 
030D56 
030064 
030072 
030100 
030106 
030114 
030115 
030122 
030130 
030136 
030144 
030152 
030160 
030162 
030170 
030176 
030204 
030212 
030220 
030226 
030234 
03C.237 
030244 
030252 
030260 
030266 



API 



000105 
052101 

^I? 

043040 
047511 
023440 
020047 
000 
103 
020114 
047516 
000124 
051057 

000 
103 
020114 
^^|6 

047111 
020124 
051523 
0S144Q 
051127 
044502 
020116 
020054 
020124 
000 
047 
020047 
041440 
047440 
051124 
043516 
000105 
050047 
047511 
020047 
043040 
052116 
047111 
042526 
051101 
047 
051117 
040440 
030440 
052116 
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0%505 
020117 
040511 
047125 
020116 
052S0S 
051104 

052116 
042122 
020124 

053457 
054504 
051440 

052116 
042122 

^4^1 
051124 
047117 
044525 

051524 
045522 
054105 
042523 

052502 
046106 
042514 
02011b 
050125 
042040 

051517 
044516 
046106 
051117 
052522 
020107 
041440 
000 
051105 
051440 
052106 
052123 
051105 



052120 
047111 
042524 
052103 
047117 
054523 
042S26 

047522 
020131 
042523 



051457 
04704Q 
052105 




047522 
020131 

]4 
ll54 
050125 
044440 
043516 
000113 
020107 
044440 
051503 
041520 
045505 

054523 
043501 
051101 
047111 
044524 
053122 

052111 
043516 
043501 
044440 
052120 
051104 
042514 

023522 
052105 
051105 
044440 
052522 



: ERROR fCSSAGES 
.flSCIZ 



Eni: 
EH2: 



En3: 



EnS: 



En6: 



En7; 



EniO: 



EMU: 



/EROR ON URITE/ 
.ASCIZ /flTEflPT TO INITIfiTE FUNCTION ON 'BUSY' OR'/E^ 



.flSCIZ /CNTROL ROY NOT SET/ 



EW: .flSCIZ "/R/U/S RDY NOT SET" 



.flSCIZ /CNTROL RDY NOT SET AFTER 1ST INTRUPT ON ISSUING SEEK/ 



.flSCIZ /URONG BITS IN RKCS. EXPCT SEEK/ 



.flSCIZ /*BUSY' FLAG CLEAR ON INTRUPTING ORVE' 



.flSCIZ /'POSITIONING' FLAG FOR INTRUPTING ORVE CLEAR' 



.flSCIZ /'ERR' OR SET AFTER 1ST INTERRUPT ON ISSUING SEEK 



w'''' '''%m ooCs^iAi mmm? 



lb-JUN-77 14:55 PfiGE iSl 



b431 
b432 
b433 

6437 
&438 
b43«3 
6440 
&441 
6442 
6443 
6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
b«58 

6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6478 
6479 
6480 
6481 
6482 
6483 
6484 
648S 
648b 



030274 
030302 
030310 

Mi^ 

030324 
030332 

030340 
0303% 
030354 
030362 
030370 
030371 
030376 
030404 
030412 
030420 
030426 
030434 
030442 
030444 
030452 
030460 
030466 
030474 
030502 
030510 
030516 
030517 
030524 
030532 
030540 
030546 
030554 
030562 
030570 
030576 
030603 
030610 
030614 
030622 
030630 
030636 
030642 
030650 
030656 
030664 
030672 
030700 
030706 
030714 
030720 
030726 
030734 
030742 
030747 



052120 
051511 
020107 

m 

052105 
051105 
044440 
052120 
051511 
020107 
000 
103 
020114 
047516 
020124 
020122 
042040 
047111 
000124 
047111 
044524 
053122 
042505 
042516 
020123 
041047 
000 
122 
051040 
047040 
052105 
044440 
052120 
051104 
042523 
047117 
123 
047522 
042447 
020122 
044517 
042505 
041523 
020104 
042523 
042524 
04550S 
042040 
047523 
047522 
040504 
047503 
051511 
051105 
103 



047440 
052523 
042523 

050103 
040440 
030440 
052116 
047440 
052523 
042523 

052116 
042122 
020124 
043101 
042523 
047117 
J51124 

051124 
043516 
020105 
020113 
020051 
047S16 
051525 

053457 
040505 
052117 
043040 
052116 
047111 
042526 
045505 
024505 
047111 
000122 
051122 
047117 
043516 
000113 
020120 
047516 
020124 
020122 
053440 
047117 
052106 
000122 
040524 
050115 
047117 
051U7 
052116 



020116 
047111 
045505 

051440 
052106 
052123 
052522 
02QU6 
047111 
045505 

047522 
020131 
042523 
042524 
045505 
020105 
050125 

050125 
042040 
051450 
047504 
0405£7 
020124 
023531 

051457 
054504 
051440 
051117 
052522 
020107 
024040 
042040 
000 
042440 

047447 
042040 
051440 

044504 
020124 
043101 
042523 
051501 
000105 
042440 

024040 
051101 
020051 
000 
047522 



Eril2: 



Eni3: 



EM15: 



EM16: 
EM17: 



.ftSCIZ /SCP SET AFTER 1ST INTRUPT ON ISSUING SEEK/ 



.ASCI2 /CNTROL ROY NOT SET AFTER SEEK DONE INTRUPT/ 



Eni4: .ASCIZ /INTRUPTING DRVE (SEEK DONE) UAS NOT -BUSY'/ 



.ASCI2 "R/U/S READY NOT SET FOR INTRUPTING DRVE iSEEK COr€ 



.ASCIZ /SIN EROR/ 

.ASCIZ /'ERR'OR ON DOING SEER/ 



Eri20: .ASCIZ /5CP DID NOT SET AFTER SEEK UAS DONE/ 



Eri21: .ASCIZ /SOFT EROR/ 

Eri23: .ASCIZ /DATA (COMPARISON) EROR/ 

Eri24: .ASCIZ /CNTROL ROY CLR ON INTRUPT AFTER RK FUNCTION 



1C 




030754 020114 042135 020131 

b488 03Q7i£ 04bl03 020122 047117 

3770 044440 QS211b 052522 

m\s TO mm 

&492 031012 052S06 04151& 044524 

b4«J3 031020 047117 000 

b4<34 031023 123 052524 045503 Ef12b 

b4q5 031030 044440 02011b 047514 

b4% 031038 050117 034054 041440 

b4g7 031044 0%517 047101 051504 

b498 0310S2 051440 04bllO 041104 

b49<3 031060 020105 047504 04251b 

bSOO 0310b8 041040 020131 04751b 

bSOl 031074 000127 

b502 03107b 052101 050115 020124 EH27 

fe503 031104 047524 042040 020117 

b504 031112 051127 052111 020105 

b505 031120 042S02 047506 042522 

b506 031126 053HMO G5?122 041440 

b507 031134 045510 300 

b508 031137 101 046524 052120 EMSO 

bBOS 031144 052040 020117 042522 

bBlO 031152 054105 041505 052125 

bSll 031160 020105 047503 046515 

6512 031 lb6 047101 026504 047111 

6513 031174 050040 047522 051107 
b514 031202 051505 020123 051117 
b515 031210 040440 051114 040505 
b51b 03121b 054504 043040 047111 
b517 031224 051511 042510 000104 

b518 031232 043047 047125 052103 En31 

b5ig 031240 047511 020116 047111 

6520 0312% 050040 047522 051107 

6521 031254 051505 020047 046106 

6522 031262 020107 047S06 020122 

6523 031270 047111 051124 050125 

6524 031276 044524 043516 042040 

6525 031304 044522 042526 044440 

6526 031312 047123 052047 051440 

6527 031320 052105 000 

6526 031323 125 04251b 050130 En32 

6529 031330 052103 042105 042040 

b530 031336 044522 042526 044440 

6531 031344 052116 052522 052120 

6532 031352 042105 000 

6533 031355 125 042516 050130 £1133 

6534 031362 052103 020104 052506 

6535 031370 041516 044524 047117 

6536 031376 041440 042117 020105 

6537 031404 047111 051040 041513 

6538 031412 020123 043101 042524 
b53<3 031420 020122 047111 051124 
b540 031426 050125 000124 

6541 031432 051104 042526 051040 En34 

5542 031440 054504 041440 042514 



J ic 

MACYll 30(1046) 06-JUN-77 14:55 PftGE 152 
DOUN AND UP ROUTINES 

.flSCIZ /STUCK IN LOOP, 8 COMfiNDS SHLDBE DONE BY NOW/ 

•flSCIZ /flTMPT TO DO WRITE BEFORE WRT CHK/ 

.flSCIZ /ftTflPT TO REEXECUTE COWIfWD-IN PROGRESS OR «LREflCY FINISHED' 

.flSCIZ /'FUNCTION IN PROGRES' FLG FOR INTRUPTING DRIVE ISN'T SET/ 

.flSCIZ /UNEXPCTED DRIVE INTRUPTED/ 

.flSCIZ /UNEXPCTD FUNCTION CODE IN RKCS AFTER INTRUPT • 

.flSCIZ /DRVE RDY CLEflR' 



10 II-DZRKHG. RKii-RKQ5 PERFORflflNCE EXERCISER MflCYii 30(i04b) Ob-JUN-77 i4:55 PfiGE 153 
d!:RkHG.^U 25-«PR-7? 10:18 POWER DOWN AND UP ROUTINES 




b5W3 
b54M 

54/ 

b54e 
b54g 
b550 

bssi 

b552 
b553 
b5S4 
b555 
bSSb 
b557 
b558 
bSSS 
bSbO 
bSbl 
b5b2 
b5b3 
b5b4 
bSbS 
bSbb 
bSb? 
b5b8 
b5&9 
bSTO 
b571 
b572 
b573 
bSTM 
bSTS 
b57b 
b577 
b578 
b57<9 



03i44b 

031451 
114 
1464 

031474 
031508 
031503 
031510 
031513 
031520 
031526 
031534 
031542 
031550 
031553 
0315b0 
0315b& 
0315b7 
031574 
031b02 
031bl0 
031bl5 
031b22 
031b30 
031&38 
031843 
031b50 
031b5b 
031bb4 
031b72 
031b73 
031700 
03170b 
031712 
031720 
03172b 



047125 
000 
127 
052105 
111 
050125 
047104 
052503 
042524 
042524 
047 
051117 
000 
122 
047111 
05211b 
047522 
122 
0M7111 
05211b 
047522 
122 
044504 
047440 
020117 
000 
115 
052111 
047117 
051127 
045510 
000122 



053J 
040523 

051520 
000 
05211b 
020124 
052047 
020122 
020122 
000 
051105 
051440 

042113 
051103 
042105 
043Slb 
041113 
051103 
042105 
04351b 
053513 
047104 
05112b 
047524 

054105 
020123 
000107 
042524 
042440 



020105 
04250b 

051440 

051 105 
044504 
047440 
043101 
051127 

023522 
052105 

020101 
042515 
053440 

000 
020101 
042515 
053440 

000 
020103 
052047 
04blOb 
030040 

041040 
051127 

041440 
047522 



EM37: 
EMIOI: 



Eni02: 
Eni03: 

Eni04: 
Eni05: 

EniOb: 
EnilO: 



.RSCIZ /DRVE POWER LO/ 

.QSCIZ /DRVE UNSAFE/ 

.flSCIZ /WPS SET/ 

.flSCIZ /INTERUPT DIDN'T OCUR AFTER WRTE/ 



.flSCIZ /'ERR' OR SET/ 



.fiSCIZ /RKOfi INCRfCNTED WRONG/ 



.ASCIZ /RKBA INCRMENTED WRONG/ 



.flSCIZ /RKWC DIDN'T OVRFLO TO 0/ 



.flSCIZ /flEX BITS WRONG/ 



.flSCIZ /WRTE CHK EROR/ 



TC-ii-DZRkHG, RK11-RK05 PERFORflflNCE EXERCISER ^ flflCYll SOCiOMb) Ob-JUN-77 14:55 PftGE 154 
OZRKHG.Pll 25-APR-77 10:18 POWER DOWN fiND UP ROUTINES 



bSBQ 

b583 
b584 
b585 
b58b 
b587 



b59a 
b591 
b5^ 

b595 
b5% 
bBS? 
b598 
b59S 
bbOO 
bbOl 

bboa 

bb03 
bb04 
bb05 
bbOb 
b£»07 
bb08 
b80<3 
bblO 
bbll 

bbia 

b813 
bbl4 
bbl5 
bSlb 
b617 
bSl8 
bSl<3 
bb20 
b621 
bb22 
6623 
bb24 



bb27 
bS28 
b{>2S 
bb30 
bbSl 
bb32 
bS33 
bb34 
bb35 



mm 

031744 
031752 
031780 
03l7bb 
031774 

03177b 
032004 
032012 



03202b 
032034 
032042 
032050 
032056 
032064 
032072 
032100 
032106 

032110 
03211b 
032124 
032132 
032140 
0321% 
032154 
032155 
032162 
032170 
032176 
032204 
032212 
032220 
032226 

032232 
032240 
0322% 
032254 

032272 
032300 
032306 



032326 
032327 
032334 



ma 

020123 
042513 
051040 
020040 
000101 

020040 
020040 
000 



051503 
045522 
020040 
020040 
042526 
054503 
020040 
020040 
000103 

020040 
020040 
020040 
041520 
042522 
020040 
000 
040 
020040 
051503 
042513 
051040 
020040 
020101 
042526 

020040 
020040 
020040 
052103 
042S04 
040 
020040 
052103 
041505 

040 
020040 
000 
OMD 
020040 



mm 

020040 
020122 
042113 
051040 



041520 
051104 



020040 
051105 
045522 
042040 
020040 
020114 
052523 
020040 



041520 
045522 
020040 
020124 
053103 
045522 

050040 
020040 
020040 
020122 
042113 
051040 
020040 
000043 

041520 
045440 
020040 
020116 
OOQ 
050040 
042440 
020040 
042126 

Q5Q04Q 
045440 

0500M0 
020040 



m8 

051040 
020040 
020123 
042113 



020040 
021526 



020103 
045522 
C20040 
020040 
051504 
044522 
020040 
020040 
020122 
042523 



020040 
040502 
054105 
020040 
020104 
040504 

020103 
045522 
051040 
020040 
020123 
042113 
051104 



020040 
054505 
047106 
047503 

020103 
050130 
051040 
000 

020103 
054505 

020103 
045522 



:DflTA HEADERS 

6h1: .«SCIZ / PC 



RKCS RKER RKDS RKDfl/ 



DH2: .flSCIZ / PC 



DH21: .ftSCIZ / PC 



DRVI/ 



RKCS RKER RKDS DRIVE CYL 



SUP 



SEC/ 



0H23: .flSCIZ / PC RKBft EXPCT RECVD RKDft/ 



DH25: .flSCIZ / PC 



RKCS RKER RKOS RKDA ORVEl/ 



DH27: .flSCIZ / PC 



KEY FNCTN CODE/ 



DH103: .flSCIZ / PC EXPCT RECVD/ 



DH30: .flSCIZ / PC 



DH105: .flSCIZ / PC 



KEY/ 

RKOfl RKWC/ 



' ^.Mc.^*f{"'' w-^m r6?fr**^ 

0510M0 



020040 DHUO: 
041513 
051040 
020040 

mm 



nflCYll 30(1046) Ob-JUN-77 14:55 PftGE 155 
DOUN AND UP ROUTINES 



bb 

^ 

bb3S 
bbMO 
E>&41 

bb44 
b645 
bb4b 
bb-»7 
&Ci4e 
b&4(3 
bCiSO 
bCiSl 

b&53 
b£>54 
b£>55 
b856 
b857 
bb58 
bb59 
bbbO 
bbbl 
bbb2 
bbb3 
bbb4 
bbb5 
hbbb 
bbb? 
bbbe 
bbb<3 




03a3b2 020040 051040 

032370 020123 020040 

03237b 042513 020122 

SoiOi 



404 



.ASCIZ 



032422 


00111b 


001 lb2 


001184 


DTI: 


.UORD 


032430 


001 Ibb 


001170 


000000 






032436 


OOlllb 


001182 


000000 


DT2: 


.UORO 


032444 


00111b 


0011b2 


001184 


DT21: 


.UORO 


032452 


OOllbb 


001170 


001172 






032480 


001174 


00117b 


000000 




.UORO 


0324bb 


OOlllb 


0011b2 


001 lb4 


DT25: 


032474 


OOllbb 


001170 


001172 






032502 


000000 










C32504 


OOlllb 


001 lb2 


001 lb4 


DT103: 


.UORO 


032512 


000000 











PC 



RKCS 



RKER RKBA RKOR/ 



.EVEN 

UORD lERRPC , SREGO . SREGl , SREG2 . SREG3 , 0 



032514 

032514 000240 
000001 



THIS 
DISK 
THIS 

OBUF: 
PGEND: 



IS THE DflTft BUFFER USED TO URITE THE RflNDOfl PATTERNS ON THE 
AT THE BEGINING. 400 (OCTAL) UORDS ARE URITTEN AT A TINE, THUS 
BUFFER IS 400/B UORDS LONG. 



NOP 
.END 
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001774 


KIPDRO= 


NRDL 
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172304 
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17230b 
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OOOEVN 


01572*4 


RC4S0R 


022222 


ST3 
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PCffC 
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ST4 
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PCNTR 


001236 


RKCS 


001222 


SUPR5 




□25014 


FOR 


0012SM 


RKDA 


001230 


SUPRSL 


UcbuUU 


PFSTRT 
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RKOe 


001232 


SUPl 




□c5u2b 
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013214 


RKDS 
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□25070 
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RKER 
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SUO 


= 


□□□001 
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012704 
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SRI = 


« A^^>»H 
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uubbcb 
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001446 


ST2 


004400 
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104421 


SGOOflT 
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TYPOC = 


104402 


SGET42 


022740 


TYPON = 


# ft 1 ft 1 

104404 


SGTSUR 


023034 


TYPOS = 


104403 


SHO = 
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IICNT 


001104 


UCE = 
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SiNTftC 


001135 
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SITEHB 
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017524 
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S80DRT 


AA 4 4 

001126 


SHSUR 


AAAi^ I f 

□23516 


•p%^i 1 

iBCLL 


AA t AAr 

001206 


snuL = 


A/^^AAA 

000003 


*Al lAAA 

SCHARC 


AAllllf A 

024460 


M If T 


AA^ t AA 

025100 
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$5A\'Rt, 

SSCOPE 

IS£TIF= 

SSIZE 

SSIZEX 

SETUP = 
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000115 
017466 
017730 
177777 
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SSURMK^ 000000 
STKB 001146 
STKS 001144 
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STYPDS 024020 

STYPE 024244 

STYPEC 024414 

STYPEX 024462 

STYPOC 026004 



SXTSTR 027216 
$$GET4= 000000 
SOFILL 0262C3 
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